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

program treug;var a,b,c:integer; label l1,l2;beginl1: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.