Заданы длины сторон треугольника, определить, является ли этот треугольник равнобедренным. Pascal

program zz1;

var

a, b, c: real; //задаем переменные не целого типа

begin

write ('введите первую сторону треугольника ');

read (a); / / вводим с клавиатуры первую сторону треугольника

write ('введите вторую сторону треугольника ');

read (b); / / вводим с клавиатуры вторую сторону треугольника

write ('введите третью сторону треугольника ');

read (c); / / вводим с клавиатуры третью сторону треугольника

if (a = c) or (a = b) or (c = b) then write (' треугольник равнобедренный ')

else write (' треугольник не равнобедренный '); / / проверяем стороны и выводим ответ

end.