Question

Информатика 9 класс
помогите пожалуйста

Answer 1

Var
a[1..10]: array of integer;
i:integer;
Begin
i:=1;
while i<=10 begin
read(a[i]);
i:=i+1;
end;
End.