С клавиатуры вводятся стороны треугольника. Является ли треугольник равнобедренным,нужно ввести в программе Паскаль!

спасибо огромное♥

program z1;var a,b,c:real;beginwriteln('введите стороны треугольника');readln(a,b,c);if (a=b)or(a=c)or(b=c) thenwriteln('треугольник равнобедренный')elsewriteln('треугольник не является равнобедренным');end.

Program n2;var a,b,c: real;beginreadln(a,b,c);if (a=c) or (a=b) or (b=c) then write('является') else write('не является');end.