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

program ArrayInput;

var

A: array[1..10] of integer;

i: integer;

begin

i := 1;

while i <= 10 do

begin

writeln('Введите A[', i, ']: ');

readln(A[i]);

i := i + 1;

end;

writeln('Массив успешно введен.');

end.