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

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;
}