Срочно!Пожалуйста посчитайте! !!Пожалуйста

begin
  var (A,B):=ReadReal2('Введите значения двух углов в градусах:');
  var C:=180-(A+B); // третий угол
  Writeln('Третий угол равен ',C);
  if not C.Between(1e-16,90.0) then begin
    Writeln('Треугольник не существует');
    Exit
    end;
  if (A=B) or (A=C) or (B=C) then Writeln('Треугольник равнобедренный')
end.


Введите значения двух углов в градусах: 72 39.5
Третий угол равен 68.5

begin
  var x:=ReadReal('Введите x:');
  var y:=x>=2?x*x+9:1/(x*x*x-4);
  Writeln('y=',y)
end.


Введите x: 1.15
y=-0.403368123834014