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

Question

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

---

Comments

Скоро урок закончится

Answer 1

//прога на 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.