Ответы
Ответ дал:
0
var gtext: array of string; text: string;
begin
write('Текст: ');
readln(text);
gtext:=text.ToWords;
for i:integer:=0 to length(gtext)-1 do write(gtext[i])
end.
Приложения:
![](https://st.uroker.com/files/ca2/ca295d12f6dd699b06e10eb697efe1dd.png)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад