Запиши программу на языке Паскаль для:
y=0,еслиx≤0
x,если01.
(y:3:0)- хз для чего это
Запусти программу и введи значение x=−4.

var    x, y: real;begin    readln(x);    if x <= 0 then y := 0    else y := x;    writeln(y:3:0);end.