Program PositiveNumber;
Var
num: Integer;
Begin
Write${}^{\prime }Введитецелоечисло{:}^{\prime }$;
ReadLn$num$;

if num > 0 then
num := num + 1;

WriteLn${}^{\prime }Результат{:}^{\prime },num$;
End.

Program LargerNumber;
Var
num1, num2: Integer;
Begin
Write${}^{\prime }Введитепервоечисло{:}^{\prime }$;
ReadLn$num1$;
Write${}^{\prime }Введитевтороечисло{:}^{\prime }$;
ReadLn$num2$;

if num1 > num2 then
WriteLn${}^{\prime }Большеечисло{:}^{\prime },num1$ else
WriteLn${}^{\prime }Большеечисло{:}^{\prime },num2$;
End.