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');
Writeln ('Codification MSAN est: C1RN')
End
else if (pq = 50) and (m = 9) then
Begin
Writeln ('msan casorec');
Writeln ('Codification MSAN est: C1RN')
End

Else if (pq = 50) and (m = 1) and (c <= 3) then
Begin
Writeln ('msan WILAYA');
Writeln ('Codification MSAN est: WILN')
End 
Else if (pq = 50) and (m = 6) then
Begin
Writeln ('msan aadl');
Writeln ('Codification MSAN est: ADTN')
End
Else if (pq = 50) and (m = 5) then
Begin
Writeln ('msan lots communal');
Writeln ('Codification MSAN est: LCON')
End
Else if (pq = 50) and (m >= 2 ) and ( m <= 3) then
Begin
Writeln ('msan skanska');
Writeln ('Codification MSAN est: SKAN')
End
Else if (pq = 50) and (m = 8) then
Begin
Writeln ('msan 1er novembre');
Writeln ('Codification MSAN est: NV1N')
End
Else if (pq = 50) and (m = 4) then
Begin
Writeln ('msan wiam');
Writeln ('Codification MSAN est: WMAN')
End
Else if (pq = 51) and (m = 0) and ( c <= 4)then
Begin
Writeln ('msan 4 mars le marché');
Writeln ('Codification MSAN est: 4MMN')
End
Else if (pq = 51) and (m = 6) and ( c <= 4)then
Begin
Writeln ('masn houari boumediene');
Writeln ('Codification MSAN est: HBMN')
End
Else if (pq = 51) and (m = 6) and ( c >= 7) and( c <= 9)then
Begin
Writeln ('msan diar el-chouhadaa');
Writeln ('Codification MSAN est: DRCN')
End
Else if (pq = 51) and (m = 1) then
Begin
Writeln ('msan 600 logts');
Writeln ('Codification MSAN est: 6CAN')
End
Else if (pq = 51) and (m = 8) and ( c >= 5) and( c <= 9)then
Begin
Writeln ('msan mizeb');
Writeln ('Codification MSAN est: MIZN')
End
Else if (pq = 51) and (m = 3) then
Begin
Writeln ('msan 1053 logts');
Writeln ('Codification MSAN est: MCAN')
End
Else if (pq = 51) and (m = 4) and ( c >= 0) and( c <= 4)then
Begin
Writeln ('msan 334 logts');
Writeln ('Codification MSAN est: 334N')
End
Else if (pq = 51) and (m = 8) and ( c >= 0) and( c <= 4)then
Begin
Writeln ('msan baala');
Writeln ('Codification MSAN est: MBAN')
End
Else if (pq = 52) and (m = 5) then
Begin
Writeln ('msan el ma labiod');
Writeln ('Codification MSAN est: MLAN')
End
Else if (pq = 52) and (m = 8) then
Begin
Writeln ('msan bekkaria');
Writeln ('Codification MSAN est: EKAN')
End
Else if (pq = 52) and (m = 1) then
Begin
Writeln ('msan el hammamet');
Writeln ('Codification MSAN est: H1AN')
End
Else if (pq = 53) and (m = 8) and ( c >= 1) and( c <= 3)then
Begin
Writeln ('msan boulhef el dyr');
Writeln ('Codification MSAN est: BDYN')
End
Else if (pq = 53) and (m = 2) and ( c >= 1) and( c <= 3)then
Begin
Writeln ('msan bir d heb');
Writeln ('Codification MSAN est: BDHN')
End
Else if (pq = 55) and (m = 0) and ( c >= 7) and( c <= 9)then
Begin
Writeln ('msan AEA2');
Writeln ('Codification MSAN est: A1BN')
End
Else if (pq = 55) and (m = 2) and ( c >= 0) and( c <= 2)then
Begin
Writeln ('msan AEB1');
Writeln ('Codification MSAN est: A2AN')
End
Else if (pq = 55) and (m = 2) and ( c >= 5) and( c <= 9)then
Begin
Writeln ('msan AEB2');
Writeln ('Codification MSAN est: A2BN')
End
Else if (pq = 55) and (m = 3) and ( c >= 0) and( c <= 4)then
Begin
Writeln ('msan AEB3');
Writeln ('Codification MSAN est: A2CN')
End
Else if (pq = 55) and (m = 3) and ( c >= 7) and( c <= 9)then
Begin
Writeln ('msan AEB4');
Writeln ('Codification MSAN est: A2DN')
End
Else if (pq = 55) and (m = 9) and ( c >= 5) and( c <= 9)then
Begin
Writeln ('msan CARACALA');
Writeln ('Codification MSAN est: CARN')
End
Else if (pq = 55) and (m = 5)then
Begin
Writeln ('msan MALEK BEN NABI');
Writeln ('Codification MSAN est: MBEN')
End
Else if (pq = 56) and (m = 3)then
Begin
Writeln ('msan DJBAL EL ANOUEL');
Writeln ('Codification MSAN est: DBAN')
End
Else if (pq = 56) and (m = 2)then
Begin
Writeln ('msan THEVEST');
Writeln ('Codification MSAN est: THEN')
End
Else if (pq = 58) and (m = 4) and ( c >= 1) and( c <= 3)then
Begin
Writeln ('msan NAFTAL');
Writeln ('Codification MSAN est: NFTN')
End
Else if (pq = 58) and (m  >= 1) and( m <= 3)then
Begin
Writeln ('msan CAH');
Writeln ('Codification MSAN est: TSAN')
End
Else if (pq = 58) and (m = 0)then
Begin
Writeln ('msan EL MERDJA');
Writeln ('Codification MSAN est: EMRN')
End
Else if (pq = 58) and (m  >= 5) and( m <= 6)then
Begin
Writeln ('msan RAFANA');
Writeln ('Codification MSAN est: RFAN')
End
Else if (pq = 58) and (m = 7)then
Begin
Writeln ('msan EL DJORF');
Writeln ('Codification MSAN est: JR1N')
End
Else if (pq = 58) and (m = 4) and (c >= 6) and(c <= 7)then
Begin
Writeln ('msan UNIVERSITE');
Writeln ('Codification MSAN est: UTBN')
End
Else if (pq = 59) and (m >= 1) and(m <= 2)then
Begin
Writeln ('msan CT6');
Writeln ('Codification MSAN est: CT6N')
End
Else if (pq = 59) and (m >= 5) and(m <= 6)then
Begin
Writeln ('msan URAD FATMA ZOHRA');
Writeln ('Codification MSAN est: FZON')
End
Else if (pq = 59) and (m >= 7) and(m <= 8)then
Begin
Writeln ('msan EPLF FATMA ZOHRA');
Writeln ('Codification MSAN est: EFZN')
End
Else if (pq = 59) and (m = 4) and (c >= 0) and(c <= 4)then
Begin
Writeln ('msan EVOLUTIF FATMA ZOHRA');
Writeln ('Codification MSAN est: EVFN')
End
Else if (pq = 60) and (m = 8) and (c >= 1) and(c <= 3)then
Begin
Writeln ('msan EL OGLA EL MELHA');
Writeln ('Codification MSAN est: EOMN')
End
Else if (pq = 62) and (m >= 1) and(m <= 2)then
Begin
Writeln ('msan DD ZOF CHERIA');
Writeln ('Codification MSAN est: CHZNN')
End
Else if (pq = 62) and (m = 0) and (c >= 0) and(c <= 7)then
Begin
Writeln ('msan EL OGLA');
Writeln ('Codification MSAN est: EOGN')
End
Else if (pq = 62) and (m = 5) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan EL MAZERAA');
Writeln ('Codification MSAN est: MAZN')
End
Else if (pq = 62) and (m = 7) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan THLIDJEN');
Writeln ('Codification MSAN est: THIN')
End
Else if (pq = 62) and (m = 8) and (c >= 0) and(c <= 6)then
Begin
Writeln ('msan BIR MOKADEM');
Writeln ('Codification MSAN est: BMKN')
End
Else if (pq = 64) and (m = 1) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan FERKANE');
Writeln ('Codification MSAN est: FEKN')
End
Else if (pq = 64) and (m = 2)then
Begin
Writeln ('msan NEGRINE');
Writeln ('Codification MSAN est: NEGN')
End
Else if (pq = 64) and (m = 6)then
Begin
Writeln ('msan DD-BIR EL ATER');
Writeln ('Codification MSAN est: BEEN')
End
Else if (pq = 64) and (m = 0) and (c >= 1) and(c <= 5)then
Begin
Writeln ('msan OUM ALI');
Writeln ('Codification MSAN est: OAIN')
End
Else if (pq = 64) and (m = 4) and (c >= 1) and(c <= 3)then
Begin
Writeln ('msan SAFSAF EL OUESRA');
Writeln ('Codification MSAN est: SEEN')
End
Else if (pq = 65)and (m >= 1) and(m <= 2)then
Begin
Writeln ('msan EL-AOUNET');
Writeln ('Codification MSAN est: EAON')
End
Else if (pq = 65) and (m >= 7) and(m <= 8)then
Begin
Writeln ('msan MORSOTT');
Writeln ('Codification MSAN est: MORN')
End
Else if (pq = 65) and (m = 3) and (c >= 0) and(c <= 2)then
Begin
Writeln ('msan 140 LOGTS GGF EL-AOUNET');
Writeln ('Codification MSAN est: 140N')
End
Else if (pq = 65) and (m = 0)then
Begin
Writeln ('msan BOUKHADRA');
Writeln ('Codification MSAN est:BOKN ')
End
Else if (pq = 65) and (m = 9)then
Begin
Writeln ('msan BOUKHADRA');
Writeln ('Codification MSAN est: BOKN')
End
Else if (pq = 67) and (m = 8)then
Begin
Writeln ('msan DD-OUENZA');
Writeln ('Codification MSAN est: OUEN')
End
Else if (pq = 67) and (m = 1) and (c >= 7) and(c <= 9)then
Begin
Writeln ('msan 300 LOGTS OUENZA');
Writeln ('Codification MSAN est: 3CLN')
End
Else if (pq = 67) and (m = 2) and (c >= 0) and(c <= 4)then
Begin
Writeln ('msan ESS OUENZA');
Writeln ('Codification MSAN est: ESSN')
End
Else if (pq = 67) and (m = 2) and (c >= 7) and(c <= 9)then
Begin
Writeln ('msan WIAM OUENZA');
Writeln ('Codification MSAN est: WIAN')
End
Else if (pq = 67) and (m = 1) and (c >= 0) and(c <= 6)then
Begin
Writeln ('msan CCE OUENZA');
Writeln ('Codification MSAN est: CCEN')
End
Else if (pq = 67) and (m = 3) and (c >= 4) and(c <= 6)then
Begin
Writeln ('msan ZOUABI OUENZA');
Writeln ('Codification MSAN est: ZOUN')
End
Else if (pq = 67) and (m = 3) and (c >= 7) and(c <= 9)then
Begin
Writeln ('msan BEN BADIS OUENZA');
Writeln ('Codification MSAN est: EBBN')
End
Else
Begin
Writeln ('not found')
End;
end.


run \| edit \| history \| help	0