Ввести 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.