Question

ООООЧЕНЬ СРОЧНО!!!!помогите пожалуйстаа!!!(задание на фото)

Answer 1

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.