Домашняя работа по Информатике. Записать на языке Паскаль. 1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
2. Найти большее из двух чисел.

Предыдущий
вопрос Следующий
вопрос

Program PositiveNumber;
Var
num: Integer;
Begin
Write('Введите целое число: ');
ReadLn(num);

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

WriteLn('Результат: ', num);
End.

Program LargerNumber;
Var
num1, num2: Integer;
Begin
Write('Введите первое число: ');
ReadLn(num1);
Write('Введите второе число: ');
ReadLn(num2);

if num1 > num2 then
WriteLn('Большее число: ', num1)
else
WriteLn('Большее число: ', num2);
End.