В чому різниця між розгалуженням і оператором вибору

Основная загвоздка состоит в том, чтобы понять, что то, что ученики не смогли решить задачу не потому, что мозгов не хватило, а потому, что не хватило исходных данных, - это и есть одно из скрытых условий задачи. Второе скрытое условие, - что ученики знают, сколько человек в классе. 

Разложим 40 на три множителя. Возможно шесть вариантов: 

1) 1+1+40=42 
2) 1+4+10=15 
3) 2+2+10=14 
4) 1+2+20=23 
5) 1+5+8=14 
6) 2+4+5=11 

Поскольку ученикам потребовалось дополнительное условие, очевидно, что учеников в классе 14 (остальные варианты просто не допускают неоднозначного толкования) . 

После того, как учитель сказал, что есть 1 младшая дочь, сразу стало ясно, что правильный ответ 5), то есть 1, 5, 8.

program pervoe;
var a,b,c,c1,d,max:integer;
begin
readln(a);
b:=a div 100 ;
c:= a mod 10;
c1:= a mod 100;
d:= c1 div  10;
if(b > c) then max:= b
else max:= c;
if (max < d) then max := d; writeln(max);
readln;
end.
2)program vtoroe;
var a,b,c,c1,d,pro:integer;
begin
readln(a);
b:=a div 100 ;
c:= a mod 10;
c1:= a mod 100;
d:= c1 div  10;
pro:= b * c * d ;
if (pro > 99) and (pro < 1000) then writeln('Yes');
readln;
end.
3)program trete;
var a,b,c,d,e,f,g,j,sum1,sum2:integer;
begin
readln(a);
b:=a div 1000 ;{1}
c:=a mod 10;  {4}
e:=a mod 1000; {234}
f:=e div 100; {2}
g:=e mod 100;{34}
j:=g div 10; {3}
sum1:= b + f ;
sum2:= j + c;
if (sum1 = sum2)  then writeln('Yes')
else writeln('NO');
readln;
end.