var 
k,n,i:integer;
begin
writeln ('Ââåäèòå n');
readln (n);
writeln ('Ââåäèòå k');
readln (k);
writeln ('-----------------------------');
for i:=1 to n do 
writeln (k);
end.