Заполнить массив из десяти элементов значениями,вводимыми с клавиатуры в ходе выполнения программы

Pascal:var a:array [1..10] of integer;begin  for i:=1 to 10 do   begin    write ('A[',i,'] = ');    readln (a[i]);   end;end.C++:#include <iostream>using namespace std;int main(){  int a[10];  for (int i = 0; i<10; i++)  {    cout <<"A[" <<i <<"] = ";    cin >>a[i];  }  return 0;}