Вычислить количество натуральных чисел кратных трем и не превышающих N. 

var  i, k, n: integer;begin  write('Введите натуральное число N-> ');  readln(n);  k := 0;  i := 3;  while i <= n do  begin    k := k + 1;    i := i + 3;  end;  writeln('Результат: ', k)end.Тестовое решение:Введите натуральное число N-> 1651Результат: 550