(Делфи) Целочисленная арифметика

[Doublefaced]

Задано натуральное число n. Найти кол - во натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2,3,5

Помогите пож-та с этой задачкой! Буду очень признателен

[Greblin]

count := n div 30 * 8;
n1 := n - n mod 30 + 1;
for i := n1 to n do
  if odd(i) and (i mod 3 <> 0) and (i mod 5 <> 0) then inc(count);

Основано на следующей идее: i mod 2 = (i+30) mod 2, i mod 3 = (i+30) mod 3, i mod 5 = (i+30) mod 2 (30 = НОК(2, 3, 5)). В интервале 1..30 чисел, удовлетворяющих условию 8. Значит для n таких чисел будет n div 30 * 8 и плюс ещё несколько чисел из интервала n1..n, которые мы считаем явно

[Doublefaced]

А вывод/ввод можно, задача не понятна.

[Greblin]

Исходя из содержания Ваших сообщений на форуме, я делаю вывод, что функции readln и writeln Вам знакомы

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var n, n1, i, count: integer;
begin
readln(n);
count := n div 30 * 8;
n1 := n - n mod 30 + 1;
for i := n1 to n do
  if odd(i) and (i mod 3 <> 0) and (i mod 5 <> 0) then inc(count);
writeln(count);
end.