Ответы
Ответ дал:
0
var
t : string;
begin
writeln('Введите текст:');
readln(t);
t := Regex.Replace(t, '.', '.$0');
writeln(t);
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад