Сложить два массива в Turbo Pascal

[Marcus75]

Здравствуйте форумчане.
Помогите с программой. Надо найти сумму двух одномерных массивов, массив ввести с клавиатуры.
Вывести ответ надо в такой форме:

13462 - элементы первого массива
14127 - элементы второго массива
27589 - ответ, который должен получится, когда сложим эти два массива.

Заранее БЛАГОДАРЮ.

[whatever]

13462 - элементы первого массива
14127 - элементы второго массива
27589 - ответ, который должен получится, когда сложим эти два массива.

А если я введу:

13467
14167
2751214

Так чтоли? Ерунда какая-то.

А вообще

type
  mas=array[1..10]of integer;
var
  a,b:mas;
  i:integer;
begin
  for i:=1 to 10 do
    begin
      write('a[',i,']= ');
      readln(a[i]);
    end;
  for i:=1 to 10 do
    begin
      write('b[',i,']= ');
      readln(b[i]);
    end;
  for i:=1 to 10 do
    write(a[i]);
  writeln;
  for i:=1 to 10 do
    write(b[i]);
  writeln;
  for i:=1 to 10 do
    write(a[i]+b[i]);
end.

[Poma][a]

begin
     ReadLn (n);

     for i := 1 to n do
         Read (a[i]);

     ReadLn (m);

     for i := 1 to n do
         Read (b[i]);

     for i := n to m do
         a[i] := 0;

     for i := m to n do
         b[i] := 0;

     if n > m then
        m := n;

     for i := 1 to m do
         Write (a[i] + b[i], ' ')
end.

З.Ы. whatever, наверно слишком жестоко заставлять пользователя вводить 10 цифр
З.Ы.Ы не проверял

[whatever]

Вместо 10 можно поставить все, что душе угодно, про ввод количества элементов массива разговора небыло.

И еще, мне кажется в данной задаче размерность массивов должна быть одинаковой, ИМХО.

[Лубышев]

А если я введу:
Код:

13467
14167
2751214

нет получится так:
[2][7][5][12][14] )))

[Marcus75]

Да размерность должна быть одинакова, и количество элементов второго массива не надо вводить.