Đề thi Mã hoá theo khoá

Bài 70/2001 - Mã hoá theo khoá
(Dành cho học sinh THCS và THPT)
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+}
{$M 16384,0,655360}
uses crt;
 Const MaxVal=256;
 Var
 n:Integer; S,KQ:String;
 a:array[0..MaxVal] of Integer;
Procedure InPut;
 Var i:Integer;
Begin
 CLrscr;
 Write('Nhap N=');Readln(n);
 For i:=1 to n do
 Begin Write('a[',i,']=');Readln(a[i]); End;
 Write('Nhap Xau:');Readln(S);
End;
Procedure Main;
 Var i,j:Integer;
Begin
 if (Length(S) Mod n) 0 then
 For i:=1 to n-(Length(S) Mod n) do S:=S+' ';
 KQ:='';
 For i:=0 to (Length(S) Div n)-1 do
 For j:=(n*i)+1 to n*(i+1) do
 KQ:=KQ+S[a[j-(n*i)]+(n*i)];
 Writeln('Xau Ma Hoa: ',KQ);
End;
Begin
 InPut;
 Main;
 Readln;
End.
(Lời giải của bạn Nguyễn Cao Thắng - Lớp 12A2 chuyên Vĩnh Phúc - tỉnh Vĩnh Phúc)