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

vara, b, c: integer;beginwriteln ( \'Введите длины сторон треугольника: \' );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.