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

program zz1;
var i:integer; //заводим переменную для цикла
begin
for i:=10 to 99 do //организуем перебор всех двухзначных чисел от 10 до 99
if i mod 15 = 0 then write(i, ); // проверяем, если число делится на пятнадцать без остатка, то выводим это число на экран в строку через пробел

end.