помогите с ДЗ по информатике 7 задание.Это паскаль

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var eps:=1e-6; // точность сравнения угла с прямым
  var (a,b,c):=ReadReal3('Введите через пробел стороны треугольника:');
  if (a+bgt;c) and (a+cgt;b) and (b+cgt;a) then begin
    // Обретаем два угла из теоремы косинусов
    // с^2 = a^2+b^2-2*a*b*cos(C)
    var aC:=ArcCos((a*a+b*b-c*c)/(2*a*b)); // в радианах
    var aB:=ArcCos((a*a+c*c-b*b)/(2*a*c)); // в радианах
    var aA:=Pi-aB-aC; // 3-ий угол
    var max:=Max(aA,Max(aB,aC)); // наибольший из углов
    var d:=Pi/2; // прямой угол
    if Абс(d-max)lt;eps then Writeln('Треугольник прямоугольный')
    else
      if maxlt;d then Writeln('Треугольник остроугольный')
      else Writeln('Треугольник тупоугольный')
    end
  else Writeln('Треугольник выстроить невероятно')
end.

Образцы
Введите через пробел стороны треугольника: 2.1 3 4
Треугольник тупоугольный

Введите через пробел стороны треугольника: 3 4 5
Треугольник прямоугольный

Введите через пробел стороны треугольника: 5.2 5.2 5.2
Треугольник остроугольный