program gggg;
uses crt;
var s:string; i,n:longint; a:array[1..100]of string;
begin
clrscr;
write('nhap s: '); readln(s);
s:=s+' ';
repeat
inc(i);
if(s[i]=' ')and(s[i+1]<>' ')then inc(n) else if s[i]<>' ' then a[n]:=a[n]+s[i];
until i=length(s);
for i:=1 to n do writeln('a[',i,']=',a[i]);
readln;
end.