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

var

   s : string;

begin

   read(s);

   for var i := 1 to s.Length div 3 do insert('.', s, i*4);

   writeln(s);

end.