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.