Program dz2; Var i:byte; s:integer;BeginS:=0;For i:= 10 to 99 do If i mod 3=0 then S:=s+i;Writeln('Сумма двухзначных чисел кратных 3 =',s);End.
//Подходит?
