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

Question

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

Answer 1

Var
  m,n,d:integer;

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