Скорее всего нужно найти количество до n-нного числа, тогда:
var n: integer;
begin
readln(n);
writeln((n div 3) div 2);
end.
поставь пожалуйста как лучший ответ, к тому же решение довольно хитрое
Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then writeln('treugolinik suscestvuet ;) else writeln('treugolinik ne suscestvuet');
readln;
end.
Рабочий стол,компьютер,окно