Составьте программу, где вводиться 10 элементов массива, и каждый элемент увеличивается на 3

//Pascal

var
  A: array [1..10] of integer;
  i: byte;
begin
  writeln(Заполнение массива.);
  for i := 1 to 10 do
  begin
    write(A[, i, ]=); readln(A[i]);
    A[i] := A[i] + 3;
  end;
  writeln;
  for i := 1 to 10 do
    write(A[i]:4);
  writeln; readln;  
end.