Programa se o número é primo (usando divisão por subtração)

[Marcelo159]

Meu programa ele diz se um número é primo ou não, só que meu professor disse que não podia usar nem DIV , nem MOD, só podia achar o resto usando divisão  por SUBTRAÇÃO , ou seja as variáveis só podem ser do tipo INTEGER.

 

EXEMPLO : 4/2 

meu programa faz : 4-2=2 

                                2-2=0

                                 Quociente é o número de equações que teve e o resto é o ultimo numero que sobra , ou seja : 0

 

Até aí tudo bem, o problema é que não compila, aparece "PROCEDURE NÃO ESPERADO" , e eu preciso usar esse procedure. 

Se algum anjo puder me ajudar eu agradeceria muito T.T'' Obrigado

 

O programa é do Pascalzim

 

 

Program NPrimo ;

var N,X,A,B,Q,R,S : integer ;

var T : boolean ;

 

Procedure Ler;

    Begin

          Read(N);

    End;

    

Procedure Preparar;

    Begin

          T:=True ; X:=2 ;  Q:=0 ;  R:=0 ; S:=0 ;

    End;

    

Procedure Divisao;

    Begin

          A:=N ;

          B:=X ;

          

          While(A>= B do

              Begin

                  A:=A-B;   Q:=Q+1;

              End;

        

          R:=A;

    End;

 

Procedure Analisar;

    Begin

          if(R=0) then

            Begin

                  writeln('Nao e primo');

                  T:=False ;

            End

          else T:= True ; 

    End;

 

Procedure Teste;

  Begin

      while(X<N) do

        Begin

            Divisao;

            Analisar;

            if(T=false) then exit;

            X:=X+1;

        End;

      

      if(T=True) then writeln('E primo.');

  End;

 

 

 

 

 

Begin

    Ler;

    Preparar;

    Teste;  

End.

[Marcelo159]

O administrador pode fechar o tópico eu ja resolvi o problema !!