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

Вот программа:var a: array [1..10] of integer; i:integer;begini:=1;while i<=10 do begin  write('a[',i,']=');  readln(a[i]);  i:=i+1; end;end.