СРОЧНО!!!! Написать программу, определяющую по длинам сторон А,В и С является ли треугольник равнобедренным.

//Pascal
var
 a,b,c:integer;

begin
  readln(a,b,c);
  if ((a=b) AND (ac) ) OR ((a=c) AND (ab)) OR ((b=c) AND (ba)) then
   writeln(Треугольник равнобедренный)
  else
    writeln(Треугольник не равнобедренный);
end;