Запиши программу на языке паскаль для: 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".