Program Znanija;
var a,b,c:integer;
begin
Writeln('Введите длину AB');
Readln(c);
Writeln('Введите длину BC');
Readln(b);
Writeln('Введите длину AC');
Readln(a);
If c=b then writeln('Треугольник ABC - равнобедренный')
else writeln('Треугольник ABC - не равнобедренный')
end.