Запиши программу на языке Паскаль для y = 0, если х<=0

x, если 0
Запустите паскаль и введите значение x = - 12

Program Program1;

var x, y:real;

begin

write ('Введите значение 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) ;

end;

if x>1 then begin

y:=sqr (x) ; writeln ('Y = ', y) ;

end;

end.