Question

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

Answer 1

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