Условие задачи
Дано целое число. Если оно является положительным, то прибавить к нему 1, в противном случае не изменять.
Вывести полученное число.
Ответ
Текст программы:
program CHISLO;
uses crt;
var
a,b:integer;
begin
clrscr;
write('Vvedite celoe chislo '); readln(a);
if (a=0) t...