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

Program If1;

Var
  A: Integer;

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

End.

Leave a Comment

13 − 3 =