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

Var

m, n, d:integer;

begin

Read (m, n) ;

d:=m mod 10 - n mod 10;

if d<0 then Writeln ('У 1-го числа разряд единиц меньше')

else

if d>0 then Writeln ('У 2-го числа разряд единиц меньше')

else Writeln ('У обоих чисел разряды единиуц равны')

end.