Ребят, нужна пооомощь :с
Найти max из: min(А,В,С) и min(А1, В1, С1).
Нужна блок-схема и программа(или хотя бы что-нибудь одно из этого) :0

https://ideone.com/lxxyZu

program ideone;Var min1, min2, A, A1, B, B1, C, C1 : integer;Function min(Var a, b, c : integer) : integer;beginif (a<b) and (a<c) then min := aelse if b<c then min := belse min := c;end;Procedure max(Var a, b : integer);beginif (a>b) then writeln(a) else writeln(b);end;beginread(A, B, C, A1, B1, C1);min1 := min(A, B, C);min2 := min(A1, B1, C1);max(min1, min2);end.