Question

Trong thời đại ngày nay, thông tin cá nhân của mỗi người dễ dàng bị xâm nhập bởi rất nhiều công nghệ hiện đại nghe lén. CHính vì vậy một đôi bạn muốn bảo mật thông tin cho nhau đã có sáng kiến nghĩ ra cách trao nhau những thông điệp mà người khác đọc hoặc nghe ko hiểu gì. Thông điệp của học là 1 câu với nhiều từ đc phân biệt bởi kí tự trống và đc sắp xếp lộn xộn thành câu vô nghĩa. Để hiểu nội dung thông điệp người bạn đã gửi cho mình, hai người bạn đã quy ước trước 1 bộ mã là 1 dãy số nguyên dương có số lượng tương ứng vs số từ nhằm giải mã thành công câu đó

Input	Output
Luon chuc hoc ban gioi luon 2 4 1 6 3 5	Chuc ban luon luon hoc gioi

Answer 1

Program hotrotinhoc;

var s,s1,st,st1: string;

d,i,j,n,d1,code : integer;

a: array[1..249] of string;

begin

Readln(s); s:=s+#32;

readln(s1);

i:=0;

while length(s)<>0 do

begin

d:=pos(#32,s);

st:=copy(s,1,d-1);

inc(i);

a[i]:=st;

delete(s,1,d);

end;

for j:=1 to length(s1) do

if s1[j] in ['0'..'9'] then

begin

val(s1[j],d1,code);

st1:=st1+a[d1]+#32;

end;

for i:=1 to length(st1) do

if st1[i] in ['A'..'Z'] then st1[i]:=chr(ord(st1[i])+32);

st1[1]:=Upcase(st1[1]);

write(st1);

readln

end.