Составить блок схему по программе на паскалеVar A: array[1… 100] of integer; i,j,imax,n: byte; Beginj: =0;…

Составить блок схему по программе на паскалеVar A: array[1… 100] of integer; i,j,imax,n: byte; Beginj: =0; write ('Введите размер массива: '); readln (n); For i: =1 to n doBeginreadln (A[i]); if (j=0) and (A[i]<0) then j: =i; End; writeln; if j>0 thenBegin if j<>n then imax: =j+1else writeln ('Первый отрицательный находится последним'); if imax<>0 thenFor i: =imax+1 to n doif A[i]>A[imax] then imax: =i; if imax>0 then writeln ('Max=',A[imax]); Endelse writeln ('Нету отрицательных'); readln; End.