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

Вывести полученное число.

Program If1;
Var
A:Integer;
Begin
WriteLn('Введите число: ');
ReadLn(A);
If A > 0 Then
WriteLn(A + 1)
Else
WriteLn(A);
End.

автор: Sklyarov Sergej a.k.a. S9