Задача на массивы, правильно решил? Опции

[Игорь2]

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

program f321;
var a:array [1..2,1..3] of integer;
i,j:integer;
begin
for i:=1 to 2 do begin
for j:=1 to 3 do begin
read (a[i,j]);
if (i+j) mod 5=0 then a[i,j]:=0;
end;end;
for i:=1 to 2 do
for j:=1 to 3 do writeln (a[i,j]);
end.

М

Тэги ставь, плз

[Игорь2]

Ошибся при регестрации с именами.
спасибо, за подсказку проверил задачу она прошла
Ещё раз спасибо

[Lapp]

Ошибся при регестрации с именами.

Правила есть правила (п.1.10). Скажи, каким профилем ты продолжишь пользоваться и какие уничтожить.
Спасибо.