Составить решение паскаль вводится 2 угла треугольника определить существует ли такой треугольник и если существует вывести 3 угла

Program abc;
var a,b,c : real;
begin
writeln('Введите стороны угла через пробел:');
readln(a,b);
if a+b<180 then
  writeln('3 угол = ',180-(a+b) ) else
  writeln('Такого треугольника не существует.')
end.