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

var num1, num2, i:integer;

nums:array [1 ... 10] of integer;

begin

i:=1;

while (i < = 10) begin

writeln ('Vvedite ', i,' paru!') ;

write ('num 1: ') ; readln (num1) ;

write ('num 2: ') ; readln (num2) ;

if (num1 > = num2) then nums[i]:=num1 else nums[i]:=num2;

i:=i+1;

end;

i:=1;

while (i<=10) begin

write (nums[i],' ') ;

i:=i+1;

end;

end.