program massiiv4;
var
 tulemus: array[1..20, 1..3] of real;
 ns, nt, is, it: integer;
 summa: real;

procedure loe_sisse;
begin
 write('Mitu sportlast? '); readln(ns);
 write('Mitu tulemust?  '); readln(nt);
 for is:=1 to ns do
 for it:=1 to nt do
 begin
  write(is,'. sportlase ',it,'. tulemus=');
  readln(tulemus[is, it]);
 end;
end;


procedure anna_vastus;
begin
 writeln('Millise sportlase keskmist tulemust soovid?');
 readln(is);

 while is>0 do
 begin
 summa:=0;
 for it:=1 to nt do
     summa:=summa+tulemus[is, it];
 writeln(is,'. sportlase keskmine tulemus oli ',summa/nt:5:2);
 writeln('Millise sportlase keskmist tulemust soovid?');
 readln(is);
 end;
end;


begin
 loe_sisse;
 anna_vastus;
end.