program ex;var a:longint;
BEGIN while not eof do begin read(a) ; writeln(a div 5) ; end;END.
本人经试验没错啊 ...= =
考虑一下如果读入的是25你的结果和真实结果