program atzimes;
uses CRT;
var
    n,m:integer;
    aud:array [1..5] of string;
    atz:array[1..5,1..3] 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

   atz[m,n]:=random(10)+1;

 write;

 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;

readln;
end.