pascal > ssqcsqc

Program Decodage;

Uses wincrt;

Var secret,mot:string;
    debut,pas:integer;

{Procédure de décodage}
Procedure decode(secret:string ; debut:integer ; pas:integer ; var mot:string);

Var x:integer;

Begin
     x:=debut;
     While x<=length(secret) Do
           Begin
                mot:= mot+secret[x];
                x:= x+pas;
           End;
End;

{Programme principal}
Begin

     Write('Message a decoder? ');
     Readln(secret);
     Write('Zone alpha du code? ');   //Caractère 'début'
     Readln(debut);
     Write('Clef du codage? ');       //Le 'pas' du codage
     Readln(pas);
     {Appel à la procedure}
     decode(secret,debut,pas,mot);
     Writeln('Le message secret est: ',mot);
     Readln();

End.