Для каждой составить программу в pascal, выводящую значение true, если указанное высказывание является истинным, и false - в противном случае 3. треугольник со сторонами а, в, с является равнобедренным

var a,b,c:real;

begin

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

readln(a,b,c);

if (a=b) or (b=c) or (c=a) then writeln('TRUE') else writeln('FALSE')

end.

или

var a,b,c:real;

d:boolean;

begin

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

readln(a,b,c);

d:=(a=b) or (b=c) or (c=a);

writeln(d)

end.