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

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.