СРОЧНО ПРОШУ составте програму у= х в квадрате , -2<=х<=2 4, в противном случае

Question

СРОЧНО ПРОШУ составте програму у= х в квадрате , -2<=х<=2<br> 4, в противном случае

Answer 1

Var
    x: real;

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