Проверка равенства трех чисел, введенных с клавиатуры

Program Mx;
  var А,В,С: integer;
begin
  writeln(' Введите 3 числа:');
  readln(A,B,C);
  if (A = В) and (A = С) then
     writeln('Числа равные')
  else
     writeln('Числа не равны');
  readln
end.