Ввести с клавиатуры 10 пар чисел, найти максимальное число в каждой паре и вывести его на экран. В работе использовать цикл с предусловием.

program zz1;

var n, k, i:integer; / / задаем переменные целого типа

begin

i:=1; / / задаем начальное значение параметра цикла

while i < = 10 do / / организуем цикл пока параметр цикла не достигнет десяти

begin

read (n, k); / / вводим пару чисел

if n > k / / проверяем, если первое число больше второго, то

then writeln (' в ', i, '-ой паре максимальное = ', n) / / выводим один ответ

else writeln (' в ', i, '-ой паре максимальное = ', k); / / иначе, выводим другой ответ

i:=i + 1; / / увеличиваем параметр цикла

end;

end.