Скорее всего нужно найти количество до n-нного числа, тогда: var n: integer; begin readln(n); writeln((n div 3) div 2); end. поставь пожалуйста как лучший ответ, к тому же решение довольно хитрое