ответ: 169.
var x,y: real;
begin
readln(x);
if (x<=0) then y:=0
else if (x<=1) then y:=x
else y:=x*x;
writeln(y);
end.
ответ: 169.
var x,y: real;
begin
readln(x);
if (x<=0) then y:=0
else if (x<=1) then y:=x
else y:=x*x;
writeln(y);
end.