Ввести c клавиатуры массив из 5 частей, умножить их на

Var
  a:array[1..5] of integer;
  i:integer;
Begin
  for i:= 1 to 5 do
  Begin
    write('Введите ',i,'-ый элемент массива ');
    Readln(a[i]);
  End;
  Write('Исходный массив: ');
  for i:= 1 to 5 do
    write(a[i],' ');
  writeln;
  write('Приобретенный массив: ');
  for i:= 1 to 5 do
    write(a[i]*2,' ');
End.