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

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