1)найти сумму чисел кратные 3 но не делящихся на2 от 100 до 150 2)вывести натуральные числа от 100 до 150 через 5

Var a:integer;
begin
for a:=100 to 150 do
   if (a mod 2<>0) and (a mod 3=0)  then writeln(a)
end.

var a:integer;
begin
a:=100;
while a<= 150 do
begin
  writeln(a);
  a:=a+5
end
end.