паскаль
данн предложение. все его символы , стоящие на третьем, шестом, девятом и т.д местах , заменить на буквы "а"

var s:string; i:integer;beginreadln(s);for i:=1 to length(s) div 3 do  s[i*3]:='a';writeln(s)end.