НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ЗНАЧЕНИЯ ФУНКЦИИ

Y= {X^2, ЕСЛИ -2<=X, X<=2; 

      {4, В ОСТАЛЬНЫХ СЛУЧАЯХ

Program Pr1;uses crt;var x,y:integer;Beginclrscr;writeln('Vvedite x');readln(x);if (x>=-2) and (x<=2) then y:=sqr(x)else y:=4;writeln(y);end.