program YValue;
varx, y: real;
beginwrite('Введите значение x: ');readln(x);
if x <= 0 theny := 0elsey := x;
writeln('Значение y = ', y:3:0);end.
program YValue;
var
x, y: real;
begin
write('Введите значение x: ');
readln(x);
if x <= 0 then
y := 0
else
y := x;
writeln('Значение y = ', y:3:0);
end.