var
 s: string;
 n,i,k:integer;
 begin
writeln ('введите k');
readln (k);  
writeln ('введите строку');
readln (s); 
n := length(s);
for i:=1 to n do 
if (i mod k=0) then s[i]:=' ';
write (s);
end.