program druk_wiersza;
{ Wczytuje liczbę  k.
  A następnie drujuje wiersz, złożony z  k-znaków '*'}
var k, ind_k : integer;
begin
   write('Liczba kolumn:'); read(k);
   for ind_k := 1 to k do
	  write('*');
   writeln
end.