Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
(язык программирования паскаль)

Program one;var: a: real;beginWriteln ('Введите число');readln (a);If a<0 then else a:=a+1 else writeln (a)end.Вроде так