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

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