program Project1;
     uses CRT;
var
  d,e,m,n,s:integer;
  st:array[1..3] of string;
  sk:array[1..5] of string;
  gs:array [1..5,1..3] of integer;
begin
 for s:=1 to 5 do
 begin
    writeln('Ievadi ',s,'. audzekna vardu');
   readln(sk[s]);
 end;
 Clrscr;
  for e:=1 to 3 do
  begin
    Writeln('Ievadi ',e,'. prieksmeta nosaukumu');
    readln(st[e]);
    end;
  clrscr;
 randomize;
 for m:=1 to 5 do
  for n:=1 to 3 do
  begin
  gs[m,n]:=random(10)+1;
  end;

   For n:=1 to 3 do
   begin
   gotoxy(5*n+1,1);
   writeln(st[n]);
   end;


 readln;
end.