Var A,L: real;
begin
readln(L);
A:=((exp(ln(L)*3)-8.5)/7.6)+10*sqr(L);
writeln(A);
end.
<span>var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end<span>.
Пример:
2 3 1
</span><span>min = 1</span></span>
1)(линейный) посадить дерево - выкапал яму, положил сажанец, завалил яму, полил
2) перед выходном на улицу одеться по пагоде. - холодно куртку, жарко плавки
3) кушаешь кашу - зачерпнул каши положил в рот так пока не закончится