Даны стороны треугольника abc найти является ли треугольник равнобедренным.Напишите

var a, b, c: integer; begin writeln ('введите а б с'); readln (a, b, c); if a=b than wtiteln('abs равнобедренный'); else begin if b=c than writeln ('abs равнобедренный ' ); else begin if a=c than writeln ('abs равнобедренный ' ); else writeln ('abs не равнобедренный'); end; end; end.

Var a,b,c:integer;
begin
read(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('Треугольник равнобедренный') else
writeln('Треугольник не равнобедренный');
end.