Программка которая определяет равнобедренность треугольника в Паскале

var
a, b, c: integer;
begin
writeln ( Введите длины сторон треугольника: );
write ( a = );
readln ( a );
write ( b = );
readln ( b );
write ( c = );
readln ( c );
if ( a = b ) or ( a = c ) or ( b = c ) then writeln ( Данный треугольник является равнобедренным. )
else writeln ( Данный треугольник не является равнобедренным. );
end.