Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)

Запусти программу и введи значение x=-11.


Число выведенное на экран:

Программа:

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".