Объяснение:
Var x,y: real;
begin
write('введите х:
readln(x);
if(x<=0) then y:=0
else if(x<=1) then y:=x
else y:=x*x;
writeln(y:3:0);
end.
