вывести на экран все двузначные числа, которые кратны 15

program zz1;

var i:integer; / /заводим переменную для цикла

begin

for i:=10 to 99 do / /организуем перебор всех двухзначных чисел от десяти до 99

if i mod 15 = 0 then write (i,' '); / / проверяем, если число делится на пятнадцать без остатка, то выводим это число на экран в строчку через пробел

end.