profile="http://gmpg.org/xfn/11"> Pascal (Паскаль). Задача: Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

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

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

program Task_If1;

var
  iNum: integer;
begin
  WriteLn('Введите целое число: ');
  Readln(iNum);
  if iNum>0 then iNum:=iNum+1;
  writeln(iNum);
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  Readln();
end.

Задача Task_If1
Задача Task_If1.

Комментарии запрещены.