Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них

Файл скайчайте и откройтк в обычном текстовом редакторе, или сразу в паскале можно открыть

Спасибо,а можете еще решить:.Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

все проверил, работает!

Немного попозже напишу)

хорошо,жду

Вот пожалуйста))program qq;var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;begincls;writeln ('Введите 10 пар чисел');read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t);//Первая параif a > b thenwriteln ('Первая пара больше число ' ,a)else writeln ('Первая пара больше число ' ,b);//Вторая параif c > d thenwriteln ('Вторая пара больше число ', c)else writeln ('Вторая пара больше число ',  d);//Третья пара if e > f then writeln ('Третья пара больше число ',  e)else writeln ('Третья пара больше число ',  f);//Четвертая параif g > h thenwriteln ('Четвертая пара больше число ' , g)else writeln ('Четвертая пара больше число '  , h);//Пятая параif  i > j thenwriteln ('Пятая пара больше число ' , i)else writeln ('Пятая пара больше число '  ,g);//Шестая параif  k > l thenwriteln ('Шестая пара больше число '  ,k)else writeln ('Шестая пара больше число '  ,l);//Седьмая пара if  m > n then writeln ('Седьмая пара больше число ' , m)else writeln ('Седьмая пара больше число '  ,n);//Восьмая параif  o > p thenwriteln ('Восьмая пара больше число '  ,o)else writeln ('Восьмая пара больше число '  ,p);//Девятая параif  q > r then writeln ('Девятая пара больше число '  ,q)else writeln ('Девятая пара больше число '  ,r);//десятая пара if  s > t thenwriteln ('Десятая пара больше число '  ,s)else writeln ('Десятая пара больше число '  ,t);end.