Произведите моделирование вычисления любой известной вам формулы из геометрии

Var
  a,b,alpha,s:real;
begin
  writeln('Вычисление площади треугольника');
  writeln('Введите (через пробел) длины двух сторон (см) треугольника');
  readln(a,b);
  writeln('Введите величину угла (градус) между сторонами треугольника');
  readln(alpha);
  alpha:=DegToRad(alpha);
  writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.')
end.

Тестовое решение:

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
25 17
Введите величину угла (градус) между сторонами треугольника
30
Площадь треугольника: 106.25 кв.см.

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
11 16.3
Введите величину угла (градус) между сторонами треугольника
39
Площадь треугольника: 56.4185730576179 кв.см.

Uses crt;
Var
         n,n1,n2,n3,n4,i,Armst:integer;
Begin
   Write('Введите n: '); readln(n);
   Write('Числа Армстронга для n=',n,': ');
      if n=3 then
                        for i:=100 to 999 do begin
                                                    n1:=i div 100;
                                                    n2:=i mod 100 div 10;
                                                    n3:=i mod 10;
                                                    Armst:=(n1*n1*n1)+(n2*n2*n2)+(n3*n3*n3);
                                                    if Armst = i then write(Armst,' ');
                                                    end;
                                                          if n=4 then
                        for i:=1000 to 9999 do begin
                                                    n1:=i div 1000;
                                                    n2:=i div 100 mod 10;
                                                    n3:=i mod 100 div 10;
                                                    n4:=i mod 10;
                      Armst:=(n1*n1*n1*n1)+(n2*n2*n2*n2)+(n3*n3*n3*n3)+(n4*n4*n4*n4);
                                                    if Armst = i then write(Armst,' ');
                                                    end;
                                                      
Writeln;
Readkey;
End.