uses crt,dos;
label 1,2;
var
 m,n:integer;
 k,v,s,l:real;
 A:array[1..10] of real;
 B:array[1..10] of real;
procedure rkalt;
  begin
    SwapVectors;
    Exec('c:\tools\rkalt.com', '');
    SwapVectors;
  end;
begin
 rkalt;
 1:clrscr;
 k:=0;
 writeln('skolko?');
 k:=0;
 {$I-}
 readln(n);
 {$I+}
 if (IOResult<>0) or (n<=0) then goto 1;
   for m:=1 to n do
     begin
       write(m,': ','m/s? ');
       {$I-}
       2:readln(v);
       {$I+}
       if (IOResult<>0) or (v<0) then goto 2;
       A[m]:=v; B[m]:=v*3.6;
       writeln( A[m]:5:2,' m/s',' = ',B[m]:5:2,' km/h');
       k:=k+A[m];
     end;
 s:=k/10; l:=s*3.6;
 writeln;
 writeln( s:5:2,' m/s',' = ',l:5:2,' km/h');
 readln;
end.