uses Crt;var alpha, beta , gamma, Sum :real;beginClrScr;Sum:=0;repeatWriteLn(' Ведите углы треугольника (в градусах): ');Write (' alpha = '); ReadLn(alpha);Write (' beta = '); ReadLn(beta);Write (' gamma = '); ReadLn(gamma);Sum:=alpha+beta+gamma;If (Sum=180) then WriteLn (' Существует! ') else Writeln (' Не существует... '); WriteLn; until Sum=180; WriteLn(' Спасибо за работу!'); ReadLn;end.