Verified answer

Ответ:

как то так чтоль

var f,i,o,iof:string;

c,probel:integer;

begin

readln(iof);

probel:=0;

for c:=1 to length(iof) do begin

if (iof[c]<>' ') and (probel=0) then i:=i+iof[c];

if (iof[c]<>' ') and (probel=1) then o:=o+iof[c];

if (iof[c]<>' ') and (probel=2) then f:=f+iof[c];

if iof[c]=' ' then inc(probel);

end;

writeln(f,' ',i,' ',o);

end.

Объяснение: