Найти сумму натуральных двузначных чисел, каждое из которых при делении на три дает в остатке 2., Небольшая помощь с Паскалем (1 курс) Опции

[clack]

Здравствуйте.Подскажите,пожалуйста,как правильно решить эту задачу?А то все никак не получается.Заранее большое спасибо!

"Найти сумму натуральных двузначных чисел, каждое из которых при делении на три дает в остатке 2."

Вот приблизительно похожая задача.Я не знаю,как здесь условие вписать.
var a,b:integer;
begin
b:=0;
for a:=10 to 99 do
begin
if (a mod 2<>0) and (a mod 3<>0) then
begin
inc(b);
end;
end;
writeln ('kol:',b);
end.

[Anonimys]

Немного выпендрежа не по теме, но от балды придумал алгоритм определения нечетности числа. Воть:

uses crt;
var a,a1,a2,b:integer;

begin
clrscr;
write('Enter number: ');
read(a);
a1:= a div 2;
a2:= round(a - round(a1));
b:= a2 - a1;
if b = 0 then
 write('Even number')
  else
 write('Odd number');
delay(1000);
end.