Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

   uses crt;
   var y:real;
       x:integer;
begin
  Write('x: ');
  ReadLn(x);
  if x<0 then y:=x*x*x-1
  else if x=0 then y:=1
  else if x<1 then y:=ln(1-x)/ln(10)
  else WriteLn('exception');
  WriteLn('y: ',y:2:2);
  Readln;
end.

function ugol(c,b,gamma:real):real; // gamma лежит против c, находим угол против B
begin
 ugol:=b*sin(gamma*PI/180)/c;
 ugol:=arctg(ugol/sqrt(1-ugol*ugol))
end;
function storona(b,c,alfa:real):real //alfa между b и c, находиv сторону против alfa
begin
 storona=sqrt(c*c+b*b-2*c*b*COS(PI*alfa/180));
end;
begin
write ('введите AC ')
readln(AC);
write ('введите BC ')
readln(BC);
write ('введите ABC ')
readln(ABC);
CAB=ugol(AC,BC,ABC);
BCA=PI-CAB-ABC;
AB=storona(AC,BC,BCA);
writeln('Строны' AC,BC,AB);
writeln('Углы',ABC*180/PI,CAB*180/PI,BCA*180/PI);
writeln('Периметр',AC+BC+AB);
writeln('Площадь',AB*BC*sin(ABC)/2)
end.

uses crt;
var AC,BC,ABC,CAB,BCA,AB:real;
 
function ugol(c,b,gamma:real):real;
var u:real;
begin
 u:=b*sin(gamma*PI/180)/c;
 ugol:=arctan(u/sqrt(1-u*u))
end;
 
function storona(b,c,alfa:real):real;
begin
storona:=sqrt(c*c+b*b-2*c*b*COS(PI*alfa/180));
end;
 
begin
write ('введите AC ');
readln(AC);
write ('введите BC ');
readln(BC);
write ('введите ABC ');
readln(ABC);
CAB:=ugol(AC,BC,ABC);
BCA:=PI-CAB-ABC;
AB:=storona(AC,BC,BCA);
writeln('Строны ',AC:0:3,' ',BC:0:3,' ',AB:0:3);
writeln('Углы ',ABC*180/PI:0:3,' ',CAB*180/PI:0:3,' ',BCA*180/PI:0:3);
writeln('Периметр ',AC+BC+AB:0:3);
writeln('Площадь ',AB*BC*sin(ABC)/2:0:3);
end.

var
a,n,m:integer;
b:boolean;
begin
while true do
begin
writeln('viberite deistvie:');
readln(a);
case a of
1:
begin
writeln('vvedite chislo');
readln(n);
end;
2:if n>=0 then writeln('>=0') else writeln('<');
3:if (n mod 4) = 0 then writeln('kratno 4') else writeln('ne kratno 4');
4:if n<-3 then writeln('<') else writeln('>=-3');
5:begin
m:=n;
b:=true;
while m>=5 do
begin
if m mod 5 <> 0 then begin b:=false; break;end
else
begin
m:= m div 5;
end;
end;
if m<>-3 then b:=false;
if b then writeln('stepen 5') else writeln('ne stepen 5');
end;
6:break;
end;
end;
end.