Вывести на экран все двузначные числа, которые кратны 3 и не кратны 5 вывести на экран все двузначные числа которые в сумме своих цифр 15 , .

1.
var i:integer;
begin
for i:=10 to 99 do
 if (i mod 3=0)and(i mod 5<>0)
  then write(i,' ');
end.

Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99

2.
var i:integer;
begin
for i:=10 to 99 do
 if i div 10 + i mod 10 = 15
  then write(i,' ');
end.

Результат:
69 78 87 96