Недавнее содержимое от ane

Блок-схема для процедуры помогите пожалуйста написать блок-схему к двум процедурам. 1)Procedure MaterialNaBrak ; var i,j,k :integer; mater,brig,brignum: integer; Begin Clrscr; j:=1; mater:=0; readfileout1(n); readfileout(np); begin for i:=1 to np do begin Begin for k:=1 to 4 do...