Program Exercice1;
Var 
    m, r1,r2,r3,x,y : integer;
    vampire : boolean;
Begin
    For m:=100 To 999 Do
        Begin
            r1 := m Mod 10;
            r2 := (m Div 10)  Mod 10;
            r3 := m Div 100;
            vampire := false;
            If ((r1 >0) And (r2 > 0) And (r3 > 0)) Then
                Begin
                    If (m Mod r1 =  0) Then
                        Begin
                            x := (m Div r1 ) Div 10 ;
                            y := (m Div r1 ) Mod 10 ;
                            If (x=r3) And (y=r2) Or (x=r2) And (y=r3) Then
                                vampire := true;
                        End
                    Else
                        If   (m Mod r2  =  0) Then
                            Begin
                                x := (m Div r2 ) Div 10 ;
                                y := (m Div r2 ) Mod 10 ;
                                If (x=r1) And (y=r3) Or (x=r3) And (y=r1) Then
                                    vampire := true;
                            End
                    Else
                        If  (m Mod r3  = 0) Then
                            Begin
                                x := (m Div r3 ) Div 10 ;
                                y := (m Div r3 ) Mod 10 ;
                                If (x=r1) And (y=r2) Or (x=r2) And (y=r1) Then
                                    vampire := true;
                            End;
                End;
            If (vampire = true) Then
                writeln (m, ' est un nombre Vampire')
        End;
End.