Информатика: решение задачки на языке Паскаль. Текст задачки: даны три естественных

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (a,b,c):=ReadInteger3('a b c =');
  if (a+bgt;c) and (a+cgt;b) and (b+cgt;a) then
    if (a=b) or (a=c) or (b=c) then
      if (a=b) and (b=c) then Writeln('Треугольник равносторонний')
      else Writeln('Треугольник равнобедренный')
    else Writeln('Треугольник многосторонний')
  else Writeln('Треугольник не существует')
end.

Var       
i, a, b, c: integer;

function check_is(a, b, c: integer):
 boolean;
begin     
 if a gt;= b + c then check_is := false
else        if b gt;= a + c then
 check_is := false else     
  if c gt;= a + b then check_is := false else     
         check_is := true;           
       end;
procedure check_how(a, b, c: integer);begin 
     if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else   
    if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else              writeln('многосторонний');     
  end;

begin     
 writeln('Введите стороны треугольника');   
    read(a, b, c);   
    if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такового треугольника!');          
   end.