Pascal
read(A) {Ввод А}
А:=А*А;
А:=А*А;
write(A) {Вывод А}
Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части
Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end