Дано 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.