Помогите срочно пожалуйста Упражнения три второй пункт .

Question

Помогите срочно пожалуйста
Упражнения три второй пункт .

---

Answer 1

Program zadacha;
var a,b,c:integer;
begin
read (a);
b:= a div 10;
c:= a mod 10;
a:= abs(b-c);
write (a);
end.