program mac_1_1;

const w		 = 5;
   k		 = 3;
type zakresw = 1..w;
   zakresk	 = 1..k;
type tablica2 = array[zakresw,zakresk] of real;
   tablica1 = array[zakresk] of real;
var  tab : tablica2;

procedure generuj_1(var t : tablica1);
var j  : zakresk;
begin
   for j := 1 to k do
	  t[j]:=random*100;
end; { generuj_1 }

procedure generuj_2(var t : tablica2);
var i : zakresw;
   t1 : tablica1;
begin
   for i := 1 to w do
   begin
	  generuj_1(t1);
	  t[i]:=t1
   end
end; { generuj_2 }

procedure drukuj(var t : tablica2);
var i : zakresw;
   j  : zakresk;
begin
   for i := 1 to w do
   begin
	  for j := 1 to k do
		 write(t[i,j]:8:3);
	  writeln
   end
end; { drukuj }

begin
   generuj_2(tab); 
   drukuj(tab);
end.