Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
<span>end.
Пример:
a=5
b=3
c=8
<span>min=3
</span></span>
Тут просто, смотри, цифра 1 означает 2, 2-4, 3-8, 4-16, 5-32 (Число каждый раз увеличивается в 2 раза).Теперь всё складываем, и получаем 0+4+8+64=72. У 8-9 классов похожие задачи есть