Составное условие в цикле while

program treugolnik;
uses crt;
var a,b,c:integer;
 
 
 
BEGIN
  clrscr;
  write('введите 3 стороны треугольника');
  readln(a,b,c);
 
  while ((a>b+c) and (b>a+c) and (c>a+b)) do
   begin
    clrscr;
    write( 'такой треугольник не существует');
    writeln('введите снова 3 стороны треугольника');
    readln(a,b,c);
   end;
 
   writeln('это сообщение я использовал для отладки ');
 
    readln;
END.

while (a>(b+c)) or (b>(a+c)) or (c>(a+b)) do

BEGIN
  clrscr;
  repeat
  write('введите 3 стороны треугольника');
  readln(a,b,c);
  if (a>=b+c) or (b>=a+c) or (c>=a+b)) then  
  writeln( 'такой треугольник не существует, введите снова 3 стороны треугольника');
  until (a<b+c) and (b<a+c) and (c<a+b)); 
  readln;
END.

uses crt;
label metka;
var a,b,c,tmp,big:integer;
    cosi:real;
    cont:string;
 
 
BEGIN
  repeat
  clrscr;
  write('введите 3 стороны треугольника ');
  readln(a,b,c);
 
  while ((a>=b+c) or (b>=c+a) or (c>=a+b))  do
   begin
    clrscr;
    textcolor(12);
    writeln( 'треугольник с такими сторонами не существует');
    textcolor(7);
    writeln(' введите 3 стороны треугольник');
    readln(a,b,c);
   end;

uses crt;
var a,b,c:integer;
BEGIN
  repeat
  clrscr;
  write('введите 3 стороны треугольника ');
  readln(a,b,c);
  while ((a>=b+c) or (b>=c+a) or (c>=a+b))  do
   begin
    clrscr;
    textcolor(12);
    writeln( 'треугольник с такими сторонами не существует');
    textcolor(7);
    writeln(' введите 3 стороны треугольник');
    readln(a,b,c);
   end;
  until ((a<b+c) and (b<c+a) and (c<=a+b));
write(a+b+c);
readln
end.