программа определяющая вид триугольника

program tip;
uses crt;
var a,b,c,mx,mn,sr:integer;{стороны введенные, макс, мин, сред}
    cs: real;{косинус}
begin
clrscr;
randomize;
a:=random(20)+1;
b:=random(20)+1;
c:=random(20)+1;
writeln ('a=',a);
writeln ('b=',b);
writeln ('c=',c);
if (a+b<=c) or (a+c<=b) or (b+c<=a) then
   begin
    writeln ('treugolnik ne sushestvuet');
    readln;
    halt;
   end
else
  begin
    mx:=a;{ищем наиболшую сторону}
    if b>mx then mx:=b;
    if c>mx then mx:=c;
    mn:=a;{наименьшую}
    if b<mn then mn:=b;
    if c<mn then mn:=c;
    sr:=a+b+c-mx-mn;{среднюю}
    cs:=(mn*mn+sr*sr-mx*mx)/(2*mn*sr);{считаем косинус угла против большей стороны}
    if cs>0 then writeln('treugolnik ostrougolnyj')
    else if cs<0 then writeln('treugolnik tupougolnyj')
    else if abs(cs)<0.00001 then writeln('treugolnik pryamougolnyj');
  end;
readln
end.

uses crt;
function L(x1,y1,x2,y2:real):real;{длина стороны}
begin
L:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
function Sqr(x1,x2,x3:real):real;{площадь треугольника по Герону}
var p:real;
begin
p:=(x1+x2+x3)/2;
Sqr:=sqrt(p*(p-x1)*(p-x2)*(p-x3));
end;
var a,x,y:integer;
    s1,s2,s3,s4,mn:real;
    st:string;
begin
clrscr;
write('a=');readln(a);
repeat
write('x=');readln(x);
write('y=');readln(y);
until (x >=0)and(x <=a)and(y >=0)and(y <=a);{проверяем чтоб точка была в квадрате}
s1:=Sqr(L(x,y,0,0),L(x,y,0,a),a);{считаем площади 4х треугольников}
s2:=Sqr(L(x,y,0,a),L(x,y,a,a),a);
s3:=Sqr(L(x,y,a,a),L(x,y,a,0),a);
s4:=Sqr(L(x,y,0,0),L(x,y,a,0),a);
mn:=s1;st:='MOA';{ищем минимальный и запоминаем его вершины}
if s2<mn then
  begin
    mn:=s2;st:='MAB';
  end;
if s3<mn then
  begin
    mn:=s3;st:='MBC';
  end;
if s4<mn then
  begin
    mn:=s4;st:='MOC';
  end;
writeln('Наименьший треугольник ',st,' площадь=',mn:0:3);
readln
end.