Ввести с клавиатуры 10 пар чисел, найти максимальное число в каждой паре и вывести…

var num1,num2,i: integer; nums: array [1… 10] of integer; begin i: =1; while (i <= 10) beginwriteln ('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) beginwrite (nums[i],'); i: =i+1; end; end.