Определить, является ли треугольник со сторонами a, b, c равнобедренным

Question

Определить, является ли треугольник со сторонами a, b, c равнобедренным

Answer 1

Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if  (a=b) or (b=c) or (c=a) then writeln('treugolinik ravnobedrenniy') else writeln ('treugolinik ne ravnobedrenniy');
readln;
end.