Определить, являются ли эти числа длинами сторон треугольника

uses crt;
var a,b,c:integer;
function CosMax(max:integer):real; {функция определяет косинус большего угла}
var x,y:integer;
begin
CosMax:=(a*a+b*b-max*max)/(2*a*b);
end;
function MaxX(a,b,c:integer):integer; {функция определяет самую длинную сторону, против которой лежит самый большой угол}
var max:integer;
begin
if (a>b)and(b>c)then max:=a
else if (b>a)and(b>c)then max:=b
else if (c>a)and(c>b)then max:=c;
MaxX:=max;
end;
begin {начало программы}
clrscr;
repeat {цикл повторений, пока не выполнится условие}
writeln('Vvedite 3 chisla:');
readln(a);
readln(b);
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)then writeln('Это не треугольник!')   {если одна из сторон больше двух других}
else if (a=b)and(b=c)then writeln('Это равносторонний треугольник!') {все стороны равны}
else if ((a=b)and(b<>c))or((a=c)and(b<>c))or((b=c)and(a<>c))  {две стороны равны}
then writeln('Это равнобедренный треугольник!')
else if CosMax(MaxX(a,b,c))>0 then writeln('Это остроугольный треугольник!') {если косинус угла против большей стороны > 0}
else if CosMax(MaxX(a,b,c))<0 then writeln('Это тупоугольный треугольник!')  {< 0}
else if CosMax(MaxX(a,b,c))=0 then writeln('Это прямоугольный треугольник!');  {= 0}
until a=999;
readln
end.

program ...;
uses crt;
var
a, s , k ,q: integer;
begin
clr scr;
k:=0; s:=0; q:=0;
repeat
write('введите число')
readln (A)
if A <>999 then

uses crt;
var a,b,c:integer;
begin
clrscr;
repeat
writeln('Vvedite 3 chisla:');
readln(a);
readln(b);
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)then
writeln('Это не треугольник!')
else if (a=b)and(b=c)then writeln('Это равносторонний треугольник!')
else if ((a=b)and(b<>c))or((a=c)and(b<>c))or((b=c)and(a<>c))
then writeln('Это равнобедренный треугольник!')
else writeln('Это разносторонний треугольник!');
until a=999;
readln
end.

writeln('Vvedite 3 chisla:');
readln(a);
if a=0 then halt;