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

2. Найти большее из двух чисел.

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

program CompareNumbers;
var
num1, num2, maxNum: integer;
begin
// Запрашиваем у пользователя два числа
writeln('Введите первое число: ');
readln(num1);
writeln('Введите второе число: ');
readln(num2);

// Сравниваем два числа и находим наибольшее
if num1 > num2 then
maxNum := num1
else
maxNum := num2;

// Выводим наибольшее число
writeln('Наибольшее число: ', maxNum);
end.

program PositiveNumber;
var
num: integer;
begin
// Запрашиваем у пользователя число
writeln('Введите число: ');
readln(num);

// Проверяем число на положительность и прибавляем 1, если оно положительное
if num > 0 then
num := num + 1;

// Выводим число
writeln('Результат: ', num);
end.