напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3.

vari, s: integer;begins:=0;for i:=1 to 99 doif (i mod 2 <> 0) and (i mod 3 <> 0) theninc(s, i);writeln(s);end.