Определить, является ли треугольник со сторонами a, b, c равнобедренным

Var a, b, c:integer;

begin

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

writeln ('c=') ;

readln (c) ;

if (a=b) or (b=c) or (c=a) then writeln ('treugolinik ravnobedrenniy') else writeln ('treugolinik ne ravnobedrenniy') ;

readln;

end.