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.
Program Pr1;
uses crt;
var x,y:integer;
Begin
clrscr;
writeln('Vvedite x');
readln(x);
if (x>=-2) and (x<=2) then y:=sqr(x)
else y:=4;
writeln(y);
end.