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

program alexq;
uses crt;
var
nbsp;a,b,c: real;
begin
nbsp;clrscr;
nbsp;write(Vvedite A,B,C: );
nbsp;readln(a,b,c);
nbsp;if (a=b) or (a=c) or (b=c) then writeln(Treugolnik ravnobedrenniy)
nbsp;else writeln(Treugolnik ne ravnobedrenniy);
nbsp;readkey;
end.