Question

Не сложно, но срочно.
Написать программу для Pascal.
Дано целое число, если оно является положительным, то прибавь к нему 5; в противном случае не изменять его. Вывести полученное число.

Answer 1

begin

read(n);

if n>0 then n:=n+5 else n:=n;

write(n);

end.