Решаем задачи Абрамян на Паскале. If 1

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

Решение:

program If1;
var
  N : Integer;
begin
  Write('Введите целое число: ');
  Readln(N);
  if N>0 then N:=n+1;
  writeln(N);
end.

program If1;

var

N : Integer;

begin

Write('Введите целое число: ');

Readln(N);

if N>0 then N:=n+1;

writeln(N);

end.

Другие задачи из раздела If можно посмотреть здесь.