Запиши программу на языке Паскаль для y= 0, если х<=0
x, если 0<x<=1          x^(2), если x>1
Запустите паскаль и введите значение x= -12

program Program1;var x,y:real;beginwrite('Введите значение 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.