program uslovie;
var x,y:real;
begin
readln(x);
if x<=0 then y:=0 else if x>1 then y:=x*x else y:=x;
writeln(y:3:0)
end.
Попробуй
Объяснение:
program uslovie;
var x,y:real;
begin
readln(x);
if x<=0 then y:=0 else if x>1 then y:=x*x else y:=x;
writeln(y:3:0)
end.
Попробуй
Объяснение: