Дано целое число написать программу выводящую ноль если число меньше нуля или без...

Question

Дано целое число написать программу выводящую ноль если число меньше нуля или без изменений если больше нуля

Answer 1

Var n:integer;
begin
write('Введите целое число: ');
readln(n);
if n<0 then n:=0;<br>writeln(n);
end.