Нужно найти произведение двузначных чисел массива, сумма цифр которых кратна 6. Такие гарантированно есть.
Я написал так:
const N=4;
var
a: array[1..N] of integer;
i,p,j:integer;
begin
for i:=1 to N do
readln(a[i]);
j:=1;
p:=a[i] div 10; {проверяем на двузначность}
if p div 10=0 then
p:=p+a[i] mod 10; {считаем сумму цифр}
if p mod 6=0 then {проверяем на кратность 6}
j:=j*a[i]; {считаем произведение}
Write('Proizvedenie = ',j);
end.
Выводит в итоге неведомо как получившуюся херь. Где ошибка?