После каждого третьего символа в тексте поставить точку Паскаль

program pr1;

uses crt;

var

a: string;

i: integer;

begin

writeln ('введите строку');

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.