Localisation ND, Pascal

Localisation ND

program msan;
Var aeb,pq,m,c,d,u :integer;
begin
    Readln(aeb,PQ,m,c,d,u);
If aeb = 37 then 
Begin
Writeln ('votre numéro est à tebessa')
End
else 
Begin
Writeln (' vote numéro est hors tebessa')
End;
if (pq = 50) and (m = 0) then
Begin
Writeln ('msan casorec')
End
else if (pq = 50) and (m = 9) then
Begin
Writeln ('msan casorec')
End

Else if (pq = 50) and (m = 1) and (c <= 3) then
Begin
Writeln ('msan WILAYA')
End 
Else if (pq = 50) and (m = 6) then
Begin
Writeln ('msan aadl')
End
Else if (pq = 50) and (m = 5) then
Begin
Writeln ('msan lot communal')
End
Else if (pq = 50) and (m >= 2 ) and ( m <= 3) then
Begin
Writeln ('msan skanska')
End
Else if (pq = 50) and (m = 8) then
Begin
Writeln ('msan 1er novembre')
End
Else if (pq = 50) and (m = 4) then
Begin
Writeln ('msan wiam')
End
Else if (pq = 51) and (m = 0) and ( c <= 4)then
Begin
Writeln ('msan 4 mars le marché')
End
Else if (pq = 51) and (m = 6) and ( c <= 4)then
Begin
Writeln ('masn houari boumediene')
End
Else if (pq = 51) and (m = 6) and ( c >= 7) and( c <= 9)then
Begin
Writeln ('msan diar el-chouhadaa')
End
Else if (pq = 51) and (m = 1) then
Begin
Writeln ('msan 600 logts')
End
Else if (pq = 51) and (m = 8) and ( c >= 5) and( c <= 9)then
Begin
Writeln ('msan mizeb')
End
Else if (pq = 51) and (m = 3) then
Begin
Writeln ('msan 1053 logts')
End
Else if (pq = 51) and (m = 4) and ( c >= 0) and( c <= 4)then
Begin
Writeln ('msan 334 logts')
End
Else if (pq = 51) and (m = 8) and ( c >= 0) and( c <= 4)then
Begin
Writeln ('msan baala')
End
Else if (pq = 52) and (m = 5) then
Begin
Writeln ('msan el ma labiod')
End
Else if (pq = 52) and (m = 8) then
Begin
Writeln ('msan bekkaria')
End
Else if (pq = 52) and (m = 1) then
Begin
Writeln ('msan el hammamet')
End
Else if (pq = 53) and (m = 8) and ( c >= 1) and( c <= 3)then
Begin
Writeln ('msan boulhef el dyr')
End
Else if (pq = 53) and (m = 2) and ( c >= 1) and( c <= 3)then
Begin
Writeln ('msan bir d heb')
End
Else if (pq = 55) and (m = 0) and ( c >= 7) and( c <= 9)then
Begin
Writeln ('msan AEA2')
End
Else if (pq = 55) and (m = 2) and ( c >= 0) and( c <= 2)then
Begin
Writeln ('msan AEB1')
End
Else if (pq = 55) and (m = 2) and ( c >= 5) and( c <= 9)then
Begin
Writeln ('msan AEB2')
End
Else if (pq = 55) and (m = 3) and ( c >= 0) and( c <= 4)then
Begin
Writeln ('msan AEB3')
End
Else if (pq = 55) and (m = 3) and ( c >= 7) and( c <= 9)then
Begin
Writeln ('msan AEB4')
End
Else if (pq = 55) and (m = 9) and ( c >= 5) and( c <= 9)then
Begin
Writeln ('msan CARACALA')
End
Else if (pq = 55) and (m = 5)then
Begin
Writeln ('msan MALEK BEN NABI')
End
Else if (pq = 56) and (m = 3)then
Begin
Writeln ('msan DJBAL EL ANOUEL')
End
Else if (pq = 56) and (m = 2)then
Begin
Writeln ('msan THEVEST')
End
Else if (pq = 58) and (m = 4) and ( c >= 1) and( c <= 3)then
Begin
Writeln ('msan NAFTAL')
End
Else if (pq = 58) and (m  >= 1) and( m <= 3)then
Begin
Writeln ('msan CAH')
End
Else if (pq = 58) and (m = 0)then
Begin
Writeln ('msan EL MERDJA')
End
Else if (pq = 58) and (m  >= 5) and( m <= 6)then
Begin
Writeln ('msan RAFANA')
End
Else if (pq = 58) and (m = 7)then
Begin
Writeln ('msan EL DJORF')
End
Else if (pq = 58) and (m = 4) and (c >= 6) and(c <= 7)then
Begin
Writeln ('msan UNIVERSITE')
End
Else if (pq = 59) and (m >= 1) and(m <= 2)then
Begin
Writeln ('msan CT6')
End
Else if (pq = 59) and (m >= 5) and(m <= 6)then
Begin
Writeln ('msan FATMA ZOHRA')
End
Else if (pq = 59) and (m >= 7) and(m <= 8)then
Begin
Writeln ('msan EPLF FATMA ZOHRA')
End
Else if (pq = 59) and (m = 4) and (c >= 0) and(c <= 4)then
Begin
Writeln ('msan EVOLUTIF FATMA ZOHRA')
End
Else if (pq = 60) and (m = 8) and (c >= 1) and(c <= 3)then
Begin
Writeln ('msan EL OGLA EL MELHA')
End
Else if (pq = 62) and (m >= 1) and(m <= 2)then
Begin
Writeln ('msan DD ZOF CHERIA')
End
Else if (pq = 62) and (m = 0) and (c >= 0) and(c <= 7)then
Begin
Writeln ('msan EL OGLA')
End
Else if (pq = 62) and (m = 5) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan EL MAZERAA')
End
Else if (pq = 62) and (m = 7) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan THLIDJEN')
End
Else if (pq = 62) and (m = 8) and (c >= 0) and(c <= 6)then
Begin
Writeln ('msan BIR MOKADEM')
End
Else if (pq = 64) and (m = 1) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan FERKANE')
End
Else if (pq = 64) and (m = 4)then
Begin
Writeln ('msan NEGRINE')
End
Else if (pq = 64) and (m = 6)then
Begin
Writeln ('msan DD-BIR EL ATER')
End
Else if (pq = 64) and (m = 0) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan OUM ALI')
End
Else if (pq = 64) and (m = 4) and (c >= 1) and(c <= 3)then
Begin
Writeln ('msan SAFSAF EL OUESRA')
End
Else if (pq = 65)and (m >= 1) and(m <= 2)then
Begin
Writeln ('msan EL-AOUNET')
End
Else if (pq = 65) and (m >= 7) and(m <= 8)then
Begin
Writeln ('msan MORSOTT')
End
Else if (pq = 65) and (m = 3) and (c >= 0) and(c <= 2)then
Begin
Writeln ('msan 140 LOGTS GGF EL-AOUNET')
End
Else if (pq = 65) and (m = 0)then
Begin
Writeln ('msan BOUKHADRA')
End
Else if (pq = 65) and (m = 9)then
Begin
Writeln ('msan BOUKHADRA')
End
Else if (pq = 65) and (m = 0)then
Begin
Writeln ('msan BOUKHADRA')
End
Else if (pq = 67) and (m = 8)then
Begin
Writeln ('msan DD-OUENZA')
End
Else if (pq = 67) and (m = 1) and (c >= 7) and(c <= 9)then
Begin
Writeln ('msan 300 LOGTS OUENZA')
End
Else if (pq = 67) and (m = 2) and (c >= 0) and(c <= 4)then
Begin
Writeln ('msan ESS OUENZA')
End
Else if (pq = 67) and (m = 2) and (c >= 7) and(c <= 9)then
Begin
Writeln ('msan WIAM OUENZA')
End
Else if (pq = 67) and (m = 1) and (c >= 0) and(c <= 6)then
Begin
Writeln ('msan CCE OUENZA')
End
Else if (pq = 67) and (m = 3) and (c >= 4) and(c <= 6)then
Begin
Writeln ('msan ZOUABI OUENZA')
End
Else if (pq = 67) and (m = 3) and (c >= 7) and(c <= 9)then
Begin
Writeln ('msan BEN BADIS OUENZA')
End
Else
Begin
Writeln ('not found')
End;
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development