Программа:
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.
При вводе х = -11 программа вывела на экран "0".
Программа:
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.
При вводе х = -11 программа вывела на экран "0".