program sekmes ;
Uses CRT,Math;
var
  a,b,c,d:integer;
  aud:array [1..5] of string = ('Ernests','Gustavs','Maksims','Vaters','Edijs');
  atz:array [1..3,1..5] of integer;
  vidd:array [1..5] of integer;
  vids:array [1..5] of longint;
    kav:array [1..5] of integer;
    stip:array [1..5] of integer;
Begin
  for a:=1 to 5 do
  begin
    gotoxy(3,a*2+2);
    writeln(aud[a]);
    writeln;

    end;
  randomize;
  gotoxy(19,2);
  writeln('ATZ');
  gotoxy(34,2);
  writeln('VID');
  gotoxy(44,2);
  writeln('KAV');
  gotoxy(55,2);
  writeln('STIP');
    for a:=1 to 5 do
    for b:=1 to 3 do
     begin
       gotoxy(b*5+10,a*2+2);
       readln(atz[b,a]);
     end;

   vidd[1]:=atz[1,1]+ atz[2,1]+ atz[3,1];
   vidd[2]:=atz[1,2]+ atz[2,2]+ atz[3,2];
   vidd[3]:=atz[1,3]+ atz[2,3]+ atz[3,3];
   vidd[4]:=atz[1,4]+ atz[2,4]+ atz[3,4];
   vidd[5]:=atz[1,5]+ atz[2,5]+ atz[3,5];
   for a:=1 to 5 do
   begin
    vids[a]:=vidd[a]/3;
    end;
      for a:=1 to 5 do
    begin
      gotoxy(35,a*2+2);
      writeln(vids[a]);
      end;
      readln;
      end.