Есть два числа Х и Y. Числа Х и Y целого типа.
Нужно ввести их значения, сравнить какое из них больше и вывести значение большего числа

Ответ:

!Если по школьной программе:

• var a, b, max: integer;
• begin
•    readln(a, b);
•    if a > b then max := a  
•    else max := b;
•    writeln('Значение большего числа: ', max);
• end.

!Если не по школьной программе:

• begin
•  var(a, b) := ReadInteger2;
•  Print('Значение большего числа:', Max(a, b));
• end.

Пример: