В чем ошибка я так и не понял(да я чайник)

[Bular]

const N = 5;

var
  A, B: array [1..N] of integer;
  i, k: integer;
  C: array [1..2 * N] of integer;
begin
  for i := 1 to N do 
  begin
    A[i] := random(65543) - 32767;
    writeln(A[i], ' ');
    B[i] := random(65543) - 32767;
    writeln(B[i], ' ');
  end;
  for i := 1 to 2 * N do
  begin
    if (i mod 2 = 0) and (i > 1) 
      then 
      k := k + 1;
    if i mod 2 = 0 then
    begin
      C[i] := A[k] + B[k];
    end
    else 
    begin
      C[i] := A[k] - B[k];
    end;
    writeln(C[i], ' ');
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
я ваш код выделил и отформатировал. сравните с тем, что у Вас было и оцените, как лучше!
Модератор

[p51x]

(i>1)

Всегда истина и эта проверка не нужна

if i mod 2 =0 then

Выше уже проверили, второй раз не нужно. И else не выполнится.

[digitalis]

Что-то мне смутно напоминает (может, только бестолковостью реализации ?) ...
http://programmersforum.ru/showthrea...95#post1714295
Один оператор обрамлять begin-end'ами не нужно. Конечно, за них денег не берут, но лучше учиться писа'ть хорошо, чем учиться писа'ть плохо . Ну и форматировать текст проги, выделить тэгами, конечно, а то не Паскаль, а поэма "Лука Лудищев" получается.