Построить блок-схему для программы в pascal: var f, g: text; s, s1: string; p: integer; begin assign(f, 'names.txt'); assign(g, 'out.txt'); reset(f); rewrite(g); while not eof(f) do beginreadln(f, s); while s< > '' do begin p : = pos(', ', s); if p> 0 then begin s1 : = copy(s, 1, p-1); s : = copy(s, p+1, length(s)) endelse begin s1 : = s; s : = '' end; p : = pos(' ', s1); if p> 0 then write(g, copy(s1, p+1, length(' ', copy(s1, 1, p-1)); if (s< > '')and(s[1]=' ') then delete(s, 1, 1); if s< > '' then write(g, ', '); end; writeln(g); end; close(f); close(g); end.