составте програму у= х в квадрате , -2< =х< =2 4, в противном случае

Var
    x: real;

begin
    readln(x);
    if abs(x) <= 2 then
        writeln('y=', x * x)
    else writeln('y=', 4);
end.