uses crt;
var s,a:string; i,m:longint;
begin
clrscr;
write('s=');readln(s);
s:=s+' ';
for i:=1 to length(s) do
if(s[i]<>' ')and(s[i+1]=' ')then begin inc(m); a:=a+s[i]; if m<>0 then writeln('a[',m,']=',a); a:=''; end else if s[i]<>' ' then a:=a+s[i];
readln
end.