var x,y: real;
begin
write('Введите 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.
var x,y: real;
begin
write('Введите 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.