var
   a,b,c,d,e:integer;
   f,g,n:integer;
begin
   readln(n);
   g:=0;
   for f:=1 to n do
   【试题描述】
找出1－N中能被5整除且至少有一位数字是5的所有整数的个数.N<32767
【输入描述】
输入只有一行，只有1个整数N。
【输出描述】
输出只有一行（这意味着末尾有一个回车符号），包括1个整数。
【输入样例】
9999
【输出样例】
1271
【试题来源】
begin
    a:=f mod 10;
    b:=(f div 10) mod 10;
    c:=(f div 100) mod 10;
    d:=(f div 1000) mod 10;
    if (a=5) or (b=5) or (c=5) or (d=5) then
     g:=g+1;
   end;
   writeln(g);
   readln;
end.

首先 这个数可能到5位
其次 未判断能否被5整除
if (a=5) or (b=5) or (c=5) or (d=5) then
应该为if （(a=5) or (b=5) or (c=5) or (d=5)）and（f mod 5=0） then

谢谢了

运行时间太长

你弄2个integer干嘛？