Нарисовать блок схему. вот . var s: string; begin s: ='min'; while pos('min',s) > 0 do begin insert('max',s,pos('min',s)); delete(s,pos('min',s),3); end; writeln(s); end.

Phoenix511    2   26.09.2019 23:50    4