Пожалуйста посчитайте пожалуйста с программированием !!!!!

//прога на Pascal`е
var
  a : longint;
begin
readln (a);
  if abs(a)>9 then
  write (abs ( (((a mod 100) - (a mod 10)) div 10) + (a mod 10)))
  else write ('В этом числе меньше двух знаков!');
end.