Требовалось написать программу, которая получает на входе натуральное число n и выводит число, которое получается из n после удаления всех пятерок, порядок остальных цифр при этом не меняется. Программист торопился и написал программу неверно, найдите неверную строку и исправьте ее.
var n, r, t:longint; 
d:integer;
begin 
readln (n); 
 r:=0;  t:=1; 
while n>0 do begin 
d:=n mod 10;  if d=5 then begin 
 r:=r+d*t; 
t:=t+1 
end; 
n:=n div 10;
 end;
writeln (t);
end.