program distance; var code:string(10); compo,vec:array['A'..'Z'] of real; ip:text; d:real; len,tot:integer; a:char; begin if paramcount = 0 then begin writeln('Usage: distance '); halt end; code:=paramstr(1); assign(ip,code); reset(ip); for a:= 'A' to 'Z' do vec[a]:=0; tot:=0; repeat read(ip,code); for a:= 'A' to 'Z' do read(ip,compo[a]); readln(ip,len); inc(tot); for a:= 'A' to 'Z' do vec[a]:=vec[a] + compo[a]/len; until eof(ip); close(ip); code:=paramstr(1); assign(ip,code); reset(ip); for a:= 'A' to 'Z' do vec[a]:=vec[a]/tot*100; repeat read(ip,code); for a:= 'A' to 'Z' do read(ip,compo[a]); readln(ip,len); d:=0; for a:= 'A' to 'Z' do d:=d + sqr(vec[a] - compo[a]/len*100); writeln(sqrt(d):20:10); until eof(ip); close(ip); end.