const fi='mess.inp'; fo='mess.out'; var st:string; i,d,so:byte; stt: array [1..50] of byte; chu: array [1..50] of string; begin assign(input,fi); reset(input); readln(st); for i:=1 to length(st) do if st[i] = ' ' then inc(so); inc(so); for i:=1 to so do read(stt[i]); close(input); inc(d); for i:= 1 to length(st) do if st[i] <> ' ' then chu[d]:= chu[d]+st[i] else inc(d); assign(output,fo); rewrite(output); for i:=1 to so do write(chu[stt[i]],' '); close(output);
uses crt; var d,g:text; a:array[1..1000]of string; n,i,t:longint; s:string; begin clrscr; assign(d,'mess.inp');reset(d); readln(d,s); t:=1; for i:=1 to length(s) do If s[i]<>' ' then a[t]:=a[t]+s[i] else inc(t); assign(g,'mess.out');rewrite(g); for i:=1 to t do begin read(d,n); write(g,a[n],' '); end; close(g); close(d); readln end.
