определить и вывести на печать имя минимальной величины и ее значение.

[Babur4iK]

Из величин, определяемых выражениями А=sin(x), B=cos(x), С=Ln(abs(x)) при заданном х, определить и вывести на печать имя минимальной величины и ее значение.

помогите пожалййста как её решить я тут набрасал идеи ,а работает,но плохо выводит не то что я хочу :

program Babur4iK;
 
 var x,A,b,c : real;


 
 begin
 
 write('Enter please x=');
 read(x);
 
 A:=sin(x);
 B:=cos(x);
 c:=ln(abs(x));
 
 writeln('A=',a) ;
 writeln ('B=',b);
 writeln ('C=',c);
 
 if a<b then
 begin
 writeln ('A=',a);


  end
  
  else if a<c then   writeln ('A=',a);
  
  if b<a then       writeln ('B=',b)

  else    if b<c then  writeln ('B=',b)  ;
  
  if c<a then         writeln ('C=',c)
  
  else  if c<b then    writeln ('C=',c)

кто знает помогите

[Stilet]

Ну и зачем тут С?
Ты походу просто скопипастил
это откуда-то

program Babur4iK;
 
 var x,A,b,c : real;


 
 begin
 
 write('Enter please x=');
 read(x);
 
 A:=sin(x);
 B:=cos(x);
 
 writeln('A=',a) ;
 writeln ('B=',b);
 
 if a<b then
  writeln ('A=',a) else writeln ('B=',b);
 end.

Помоему хватит для решения.

[Babur4iK]

C здесь есть просто забыл блин паписать

ну так как быть с этой C,че-то не пойму

[Babur4iK]

я все сделал сделал,спасибо всем за помощь