Question

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

Answer 1

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