program gen;

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

procedure generuj_wk(var t : tablica);
var i  : zakresw;
   j   : zakresk;
   pom : real;
begin
   pom := 1.0;
   for i := 1 to w do
	  for j := 1 to k do
	  begin
		 t[i,j]:=pom;
		 pom := pom + 1.0
	  end
end; { generuj_wk }

procedure generuj_kw(var t : tablica);
var i  : zakresw;
   j   : zakresk;
   pom : real;
begin
   pom := 1.0;
   for j := 1 to k do
	  for i := 1 to w do
	  begin
		 t[i,j]:=pom;
		 pom := pom + 1.0
	  end
end; { generuj_kw }

procedure drukuj(var t : tablica);
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_wk(tab); 
   drukuj(tab);
   writeln;
   generuj_kw(tab); 
   drukuj(tab) 
end.