После каждого третьего символа в тексте поставить точку паскальprogram pr1; uses crt; var a: string; i: integer; beginwriteln ('введите строку'); read (a); for i: =length (a) downto 1 do insert('.',a,i+3); writeln('полученная строка = ',a); readln; end.либо другим возможным через insert
программа на PascslABC под турбопаскаль подправить думаю справишься самостоятельно...
var
s : string;
begin
writeln('введите строку: ');
read(s);
for var i := 1 to s.Length div 3 do insert('.', s, i*4);
writeln('полученная строка: ', s);
end.