{Oпределить по двум углам будет ли тр-к прямоугольным}
program bo;
const pi=180;
var a,b:real;
p,q:boolean;
begin
writeln('Задайте 2 угла в треуг-ке:');
readln(a,b);
q:=false;
begin
if ((pi-a-b)>0) then
p:=true;
if ((pi-a-b)=pi/2) or (a=pi/2)or(b=pi/2) then
q:=true
else
if ((pi-a-b)<=0) then
p:=false;
if p then
writeln('Такой треугольник существует')
else
writeln('Такой треугольник не существует');
if p then
if q then
writeln('и он прямоугольный')
end
end.