срочно пожалуйста, 20 минут осталось.​

program votkakby;

var x, y:real;

begin

 writeln('Введите x');

 readln(x);

 if x<=0 then

 begin  

   y:=0;

   writeln('y=',y)

 end;

 if (x>0) and (x<=1) then

 begin  

   y:=x;

   writeln('y=',y:3:0);

 end;

 if x>1 then

 begin  

   y:=x*x;

   writeln('y=',y);

 end;

end.