1) Дан массив из 10 элементов, вывести их на экран и выяснить, какой из элементов k или s является большим (k, s <11 и задаются с клавиатуры)

var

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

i, k, s : integer;

begin

randomize;

for i : = 1 to 10 do a[i] : = random (100);

readln (k, s);

if a[k] > a[s] then writeln ('a[', k, ]'>', 'a[', s,']')

else if a[k] = a[s] then writeln ('a[', k, ]'=', 'a[', s,']')

else writeln ('a[', k, ]'<', 'a[', s,']');

end.