Объяснение:
Program p1;
var x,y:integer;
begin
writeln('Введите значение x');
readln(x);
if (x<=0) then y:=0
else if (x>0) and (x<=1) then y:=x
else if (x>1) then y:=sqr(x);
writeln(y);
end.
