Приведённый ниже код на Pascal $Delphi$ находит количество чисел от 1 до n, кратных 15.

program CountMultiplesOf15;
var
n, count, i: integer;
begin
Write${}^{\prime }Введитечислоn{:}^{\prime }$;
ReadLn$n$;
count := 0;
for i := 1 to n do
begin
if i mod 15 = 0 then
Inc$count$;
end;
WriteLn${}^{\prime }Количествочиселот1д{о}^{\prime },n{,}^{\prime },кратных15{:}^{\prime },count$;
end.

Программа запрашивает у пользователя число n, затем с помощью цикла for проверяет все числа от 1 до n. Если число кратно 15 $остатокотделенияна15равеннулю$, то увеличивает счётчик count. В конце программа выводит количество чисел, кратных 15 в заданном диапазоне.

Для компиляции и выполнения этой программы вам потребуется среда разработки Pascal $например,Delphi$ или любой другой компилятор Pascal.