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

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.

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

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