program Primer; // Название программы
var // Раздел для описания переменных
a, b, max: integer; // Объявление целочисленных переменных:
a - хранение первого введенного с клавиатуры числа;b - хранение второго введенного с клавиатуры числа;max - хранение максимального из них.begin // Начало программы
writeln('Введите два целых числа:'); // Вывод сообщения в консоль формата:
Введите два целых числа:read(a, b); // Считываем с клавиатуры два числа
if a > b then // Если значение переменной a > b, тогда
begin // Начало цикла if
max := a; // В переменную max присваиваем значение переменной a
end // Конец цикла if
else // Иначе
begin // Начало цикла else
max := b; // В переменную max присваиваем значение переменной b
end; // Конец цикла else
writeln('Наибольшее число: ', max); // Вывод сообщения в консоль формата:
Наибольшее число: *значение переменной max*end. // Конец программы
