Пожалуйста помогите написать программу и составить блоксхему! Определить среди 3…

Uses crt; var sump,sumn,i: integer; a: array[1… 3] of integer; beginfor i: =1 to 3 dobeginread (a[i]); if a[i]>=0 thensump: =sump+a[i]elsesumn: =sumn+a[i]; end; if sump>=sumn thenwriteln (min (min (a[1],a[2]) ,min (a[2],a[3]) elsewriteln (max (max (a[1],a[2]) ,max (a[2],a[3]); end.