Склавиатуры вводят два целых числа.у какого числа последний разряд (единица) меньше

1 0 / {x} 1 0 * <-> 1 0 / {x} 1 0 * - x<0 20 2 С/П /-/ x<0 25 1 С/П 0 С/П

Выводит 1, 2 или 0, если последние разряды равны.

Var
  a,b,d:integer;

begin
  Read(a,b);
  d:=a mod 10 - b mod 10;
  if d<0 then Writeln('Разряд единиц меньше у 1-го числа')
  else
    if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
    else Writeln('Разряды единиц у обоих чисел равны')
end.