Ребят, нужна пооомощь :с Отыскать max из: min(А,В,С) и min(А1, В1,

прога на паскаль?

Паскаль

min это что?

аааа

ясн

а эти числа надобно с таблицы вводить?

поточнее тип человек вводит?

Ну, вроде, поначалу надо от руки начертить блок-схему и с нее писать программу(если я верно понял вопрос)

могу для вас без блок-схемы написать

было бы хорошо, хехе :D

Program ideone;
Var min1, min2, A, A1, B, B1, C, C1 : integer;
Function min(Var a, b, c : integer) : integer;
begin
if (alt;b) and (alt;c) then min := a
else if blt;c then min := b
else min := c;
end;

Procedure max(Var a, b : integer);
begin
if (agt;b) then writeln(a)
else writeln(b);
end;

begin
read(A, B, C, A1, B1, C1);
min1 := min(A, B, C);
min2 := min(A1, B1, C1);
max(min1, min2);
end.