*на зачете*Даны длины двух сторон и угла между ними для двух треугольников.Определить больший по площади треугольник.Выч.пл.треуг.оформ. Ввиде ФУНКЦИИ - Pascal - Ответ 791179

program treugolnik;
uses crt;
var
a1, b1, alpha1:real;
a2, b2, alpha2:real;
s1,s2:real;
 
function s(st1:real;st2:real;ugol:real):real;
begin
s:=0.5*st1*st2*sin(ugol);
end;
 
begin
clrscr;
write('Vvedite storonu a pervogo treug '); readln(a1);
write('Vvedite storonu b pervogo treug '); readln(b1);
write('Vvedite ugol mezhdu nimi v radianah ');readln(alpha1);
write('Vvedite storonu a vtorogo treug '); readln(a2);
write('Vvedite storonu b vtorogo treug '); readln(b2);
write('Vvedite ugol mezhdu nimi v radianah ');readln(alpha2);
s1:=s(a1,b1,alpha1);
s2:=s(a2,b2,alpha2);
writeln('Ploshad 1-go=',s1:8:3);
writeln('Ploshad 2-go=',s2:8:3);
if s1>s2 then writeln('Perviy treug > po ploshadi')
else
 if s1<s2 then writeln('Vtoroy treug > po ploshadi')
 else writeln('Ploshadi treug ravni');
readln;
end.