Страница 77 номер 68, ГДЗ по информатике за 9 класс к рабочей тетради Босовой. Решение с ответом к РТ

Номер 68. На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с предусловием. Запишите соответствующую программу на языке Паскаль.

program tt;
var a: array [1..10] of integer;
        i: integer;
begin
   i:=1;
   while i<=10 do
      begin
         readln(a[i]);
          i:=i+1
    end;
end.