program Euklides_fun;
{ Wczytuje liczby  w  i  k.
  A następnie drujuje  w-wierszy, w każdym po  k-znaków '*'}
var w, k, ind : integer;
procedure druk_wiersza(kol : integer);
{ Drujuje jeden wiersz długości kol, złożony ze znaków '*' }
   var ind : integer;
   begin
	  for ind := 1 to kol do
		 write('*');
	  writeln
   end;
begin
   write('Liczba kolumn:'); read(k);
   write('Liczba wierszy:'); read(w); 
   for ind := 1 to w do
	  druk_wiersza(k)
end.