Question

помогите срочно!!!!!!

Answer 1

var x:real;

begin

writeln('Введите значение x: ');

readln(x);

if x>1 then

writeln('y = ',x*x)

else

if x<=0 then

writeln('y = 0')

else

writeln('y = ',x)

end.