дано 5 ти значное число вывести на экран монитора вторую и пятую цифры их разность

var  a: integer;  b, x: byte;begin  readln(a);  x := a mod 10;  b := a div 1000 mod 10;  writeln(b, ' - ', x, ' = ', b - x);end.