program CompareNumbers;
var
num1, num2, maxNum: integer;
begin
// Запрашиваем у пользователя два числа
writeln${}^{\prime }Введитепервоечисло{:}^{\prime }$;
readln$num1$;
writeln${}^{\prime }Введитевтороечисло{:}^{\prime }$;
readln$num2$;

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

// Выводим наибольшее число
writeln${}^{\prime }Наибольшеечисло{:}^{\prime },maxNum$;
end.

program PositiveNumber;
var
num: integer;
begin
// Запрашиваем у пользователя число
writeln${}^{\prime }Введитечисло{:}^{\prime }$;
readln$num$;

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

// Выводим число
writeln${}^{\prime }Результат{:}^{\prime },num$;
end.