1)Дан массив из 10 частей, вывести их на экран и выяснить,

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] gt; a[s] then writeln(a[, k, ]gt;, a[, s,])
else if a[k] = a[s] then writeln(a[, k, ]=, a[, s,])
else writeln(a[, k, ]lt;, a[, s,]);
end.