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] := trunc (random (100));   for i : 1 to 10 do write (a[i], ' ');   writeln;   read (k, s);   if a[k] > a[s] then write ('a[k] > a[s]')   else if a[k] = a[s] then write ('a[k] = a[s]')   else write ('a[k] < a[s]'); end.