test

Program roots(output);
var 
a,b,c,d,e,root,x:real;
begin
 write('a=');
 read(a);
 write('b=');
 read(b);
 write('c=');
 read(c);
 write('d=');
 read(d);
 write('e=');
 read(e);
 x:=(a+b+c+d+e);
 root:=(x/5);
 writeln('root=',root);
end.