1. Дан массив целых чисел, введенных с клавиатуры. Выяснить: какой элемент массива больше: k-й или s-й.

const n=10;

var a: array[1..n] of integer;

k,s,i: integer;

begin

write('Введите массив в одну строку через пробел: ');

for i:=1 to n do read(a[i]);

writeln;

write('Введите k и s через пробел: ');

readln(k,s);

if a[k]>a[s] then write('k-й элемент больше')

else if a[s]>a[k] then write('s-й элемент больше')

else write('k-й и s-й элементы равны');

end.