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

vara: array [1..10] of integer;i, k, s : integer;beginrandomize;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.