sasasq

Program nombre_primoriel;
Uses Wincrt;
Var
  n,r,i,s: Integer;
       Function verif (n:Integer ):Integer;
              var
                 s : integer;
       Begin
       For i:=2 To (n Div 2) Do
       If n Div i=0 Then
       s:=s+n;
             verif := s;
End;
Begin
  Write('n: ');
  Readln(n);
  s := 0;
    s:= verif(n);
    if s=0 then
         write('nb premier')
    else
         write('verifier n');

End.