Вычисления. Сравнение площадей

[Lenysik]

60. Что больше: площадь равностороннего треугольника со стороной 1.65 или площадь круга радиусом 0.8.

[Esgal]

Код: Выделить всё

uses crt;
var r,ab:real;
begin clrscr;
 write('Vvedi storonu triugolnika:  '); readln(ab);
 write('Vvedi ranius kruga:  '); readln(r);
 if (pi*r*r)>(ab*ab*sin(60)*0.5) then
  writeln('Krug bolshe!')
 if (pi*r*r)<(ab*ab*sin(60)*0.5) then
  writeln('Triugolnik bolshe!');
 if (pi*r*r)=(ab*ab*sin(60)*0.5) then
  writeln('Ploshadi ravni!');
 readkey;
end.

[Хыиуду]

А зачем три раза проводить вычисления?
result:=(pi*r*r)-(ab*ab*sin(60)*0.5);
if result>0 then круг больше
else if result<0 then треугольник больше
else площади равны.