program ConditionalFunction; var x, y: real; begin write′Введитезначениеx:′'Введите значение x: '′Введитезначениеx:′; readlnxxx; if x <= 0 then y := 0 else y := x; writeln′Число,выведенноенаэкран:′,y:3:0'Число, выведенное на экран: ', y:3:0′Число,выведенноенаэкран:′,y:3:0; end.
При введении значения x=-5 на экран будет выведено число: 0
var
x, y: real;
begin
write′Введитезначениеx:′'Введите значение x: '′Введитезначениеx:′;
readlnxxx;
if x <= 0 then
y := 0
else
y := x;
writeln′Число,выведенноенаэкран:′,y:3:0'Число, выведенное на экран: ', y:3:0′Число,выведенноенаэкран:′,y:3:0;
end.
При введении значения x=-5 на экран будет выведено число: 0