Задача на паскале.
С клавиатуры вводится четырёхзначное число. Найдите разность между цифрой, стоящий у него в единицах и цифрой, стоящей в десятках.

var a,b,c:integer;beginwrite('a = ');readln(a);b:=a mod 10;c:=a mod 100 div 10;writeln(b,'-',c,'=',b-c);end.Пример:a = 62188-1=7