Запиши программу на языке Паскаль

var x: integer;

begin

readln(x);

if (x=0) or (x<0) then

write(0)

else

if (x>1) then

write(x*x)

else  

write(x);

end.