Составить программу для паскаля

даны три стороны треугольника, определить является ли такой треугольник равнобедренным, равносторонним или произвольным

Var a, b, c: integer;

begin

write ('Введите сторону а: ') ;

read (a) ;

write ('Введите сторону b: ') ;

read (b) ;

write ('Введите сторону c: ') ;

read (c) ;

if (a=b) and (b=c) then

writeln ('Треугольник равносторонний')

else if (a=b) or (b=c) or (a=c) then

writeln ('Треугольник равнобедренный')

else writeln ('Треугольник произвольный') ;

end.