var
s,c:string;
i,k:integer;
begin
readln(s);
readln(k);
for i:=1 to lengths(s)do
if s[i]mod k<>0 then c:=c+s[i];
writeln(c);
readln;
end.
Следующий вариант
var s:string;
i,n:byte;
begin
writeln('Введите строку:');
readln(s);
write('n=');
readln(n);
for i:=length(s) downto 1 do
if i mod n=0 then delete(s,i,1);
write(s);
end.