Question

Информатика!! Паскаль ​

Answer 1

Ответ: 100

Объяснение:

var x,y: real;

begin

writeln('Введите x: ');

readln(x);

if (x<=0) then y:=0

else if (x<=1) then y:=x

else y:=x*x;

writeln(y:3:0);

end.