не знаю синтаксис паскаля, но думаю сможешь перевезти:
n,a as integer
a:=(n mod 10) - (n div 10);
if a<0 then
a:=a*-1;
write(a);
end.
