Найти сумму двузначных,целых нечетных чисел кратных 3 По Паскалю. Даю 30 Поинтов

:

var i,s: integer;

begin

s:=0;

for i:=10 to 99 do

if (i mod 2 <> 0) and (i mod 3 = 0)

then s:=s+i;

write(s)

end.