Помогите отыскать сумму чисел от 10 до 99 кратных и 2

var s,i: integer; begin s:=0; i:=12; repeat s:=s+i; i:=i+6; until i>99; writeln('сумма: ',s); end.

Поначалу стоит немножко пошевелить мозгами над задачей, а не писать "в лоб".

Если число кратно 2 и сразу 3, то оно кратно и их творению, т.е. 2 х 3 = 6.
Наиблежайшее число, превышающее 10 и кратное 6 - это 12.
Начинаем от него и идем с шагом 6, пока не превысим 99.

1. Так можно решить по-современному:

// PascalABC.NET 3.1, сборка 1190 от 05.03.2016
begin
  Writeln('Разыскиваемая сумма равна ',Range(12,99,6).Sum)
end.

Итог выполнения программки
Разыскиваемая сумма одинакова 810

2. А так - "по-школьному":

// PascalABC.NET 3.1, сборка 1190 от 05.03.2016
var
  i,s:integer;
begin
  i:=12;
  s:=0;
  while ilt;=99 do begin
    s:=s+i;
    i:=i+6
    end;
  Writeln('Разыскиваемая сумма равна ',s)
end.

Var
i,sum:integer;
Begin 
for i:= 10 to 99 do 
if ((i mod 2) = 0) and ((i mod 3)=0) then sum:=sum+i; 
write(sum);
End.