помогите написать прогу с использование функции на TP

[Jeksik]

Даны действительные числа a, b. Получить u=min(2a, b),
v=min(a*2b, 3a-b), c=min(u+v2, 3.14)

[_Dmitry]

function min(a,b: real): real;
begin
  if a < b then min:=a
  else min:=b;
end;

ну, а дальше ваши формулы

u:=min(2*a, b); 
v:=min(a*2*b, 3*a-b);
c:=min(u+v*2, 3.14);

[Jeksik]

большое спасибо

[Jeksik]

Думаю гдето так...

program ma;
var a,b,u,c,v:real;
function min (a,b:real):real;
begin
  if a<b then min:=a else min:=b;
end;
begin
  write('Vvedite a='); Readln(a);
  write('vvedite b='); Readln(b);
  u:=min(2*a,b);
  v:=min(a*2*b,3*a-b);
 c:=min(u+v*v,3.14);
writeln('u=',u:4:2, '  v= ',v:4:2, '  c= ',c:4:2);
readln
end.