Составить блок схему к программе: Program name; Const n=15;…

Составить блок схему к программе: Program name; Const n=15; var a: array [1… n] of integer; i,p: integer; beginp: =1; for i: =1 to n dobegina[i]: =random (15); write (a[i],'); end; writeln; for i: =1 to n-1 do if a[i]+a[i+1]>10 thenbeginp: =0; write (a[i],',',a[i+1],'); end; if p=1 then writeln ('NO'); end.