1) дан массив целых чисел,состоящий из 10 элементов. заполнить его с клавиатуры. вывести на экран только те числа,для которых из значение больше номера их индекса. ,

var
    m : array [1..10] of Integer;
    i : Integer;
begin

   Writeln('Введите массив:');
   for i := 1 to 10 do
   begin
      Write(i, ': ');
      Readln(m[i]);
   end;

   for i := 1 to 10 do
      if m[i] > i then
         Write(m[i], ' ');

   ReadLn;
end.