написать программку которая определяет сколько чисел кратных 15 находится в диапозоне

// Пример программки на языке Паскаль.

var
   i, s : integer;     // объявляем переменные целочисленного типа.
begin
  for i := 150 to 550 do    // начало цикла.
    begin
      if (i mod 15 = 0) then     //проверяем является ли число кратным 15.
        begin
           s := s + 1;               // Считаем количество чисел кратных 15.
        end;
   end;
  writeln (Количество чисел из диапазона от 150 до 550, кратных 15 равно: , s); // вывод строчки.
end.