Ввести 3 числа.Ппроверить или могут они быть сторонами триунольника, если да то определить его тип: ровностороний, ровнобедреный, разностороний. (Pascal)

program treug; var a,b,c:integer; label l1,l2; begin l1: writeln ('Укажите стороны треугольника:'); read (a,b,c); if (a<=0) or (b<=0) or (c<=0) then begin  writeln ('Проверьте правильность введенных данных'); goto l1; end; if (a=b) and (a=c) and (b=c) then begin writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end; if (a=b) or (a=c) or (b=c) then begin writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2; end; writeln ('Треугольник с указанными параметрами - разносторонний'); l2: end.