Определить, состоит ли двузначное число, введенное с клавиатуры, из одинаковых цифр? (напишите код паскаль)

Var a: integer;
begin
  write('Введите число: '); read(a);
  if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
  else writeln('Цифры не одинаковые');
end.