Дано 3значное число. найти разницу между второй и первой его цифрами

Question

Дано 3значное число. найти разницу между второй и первой его цифрами

Answer 1

Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);