Удаление кратных элементов в односвязном списке

 #include <iostream>
#include <conio.h>
#include <stdio.h>
#include <math.h>
using namespace std;
 
void main()
{ int a;
struct node {
    int inf;
    node *next; };
 
 node *r,*fr,*er,*n;
 fr=NULL;
int k=0;
 
while(scanf("%d",&a)&& a!=0)
    {
   if(fr==NULL)       // Проверяем: список существует или нет. Если
                      // fr = NULL, то списка нет.
        {r=new node;  // Создаем новый элемент списка.
         r->inf=a;    // Инициализируем поле inf нового элемента списка.
         r->next=NULL;     // Инициализируем поле указателя нового элемента
         fr=r;             // Поэтому новый (первый) элемент объявляем головным.
         er=r;}              // Новый элемент объявляем последним.
    else
    {r=new node;
     r->inf=a;       // Инициализируем поле inf нового элемента списка.
     r->next=NULL;   // Инициализируем поле указателя нового элемента списка.
     er->next=r;     // новый элемент присоединяем к списку.
     er=r;}          // Новый элемент объявляем последним.
}
 
r=fr;
 
while(r!=NULL)                // Пока не дошли до последнего элемента списка.
{   printf("r- %d\n",r->inf);
r=r->next;
};
 
r=fr;
while ((r->inf)%5==0)
{
    printf("delet golovnoy element \n");
     fr=fr->next;
      
      delete r;
      
 }
r=fr;
while(r!=NULL)
  { n=r;
     r=r->next;
 
  if((r->inf)%5==0)
   { n->next=r->next;
      delete r;
      r=n;
      k=k+1;
   }
  }
 
if (k=0)
      printf("kratnost 5 not detected/n");
 
 
    _getch();
}