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