program atzimes;
uses CRT;
var
    n,m,a,b,c,d,f:integer;
    aud:array [1..5] of string;
    atz:array[1..5,1..3] of integer;
    kop: array[1..9] of integer;
begin
for m:=1 to 5 do
 begin
    writeln('Ievadi audzekna vardu');
   readln(aud[m]);
 end;
 randomize;
 for m:=1 to 5 do
  for n:=1 to 3 do
  begin
   atz[m,n]:=random(10)+1;

 write;

  end;

 For m:=1 to 5 do
  begin
  writeln;
  write( aud[m]);
 writeln;

  For n:=1 to 3 do
  begin

   write('  - ' ,atz[m,n]);

 end;
  end;
 writeln;
  for  d:=1 to 3 do
  Begin
    kop[1]:=atz[1,1];
    kop[2]:=atz[1,2];
    kop[3]:=atz[1,3];
    b:=kop[1]+kop[2]+kop[3];

    kop[4]:=atz[2,1];
    kop[5]:=atz[2,2];
    kop[6]:=atz[2,3];
    c:=kop[4]+kop[5]+kop[6];

    kop[7]:=atz[3,1];
    kop[8]:=atz[3,2];
    kop[9]:=atz[3,3];
    a:=kop[7]+kop[8]+kop[9] ;
    f:=a+b+c;
    end;
  writeln('Videja',f);
readln;
end.