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

Question

Вводится произвольное четырёхзначное число вывести на экран вторую и четвёртую цифру этого числаНапример: при вводе числа 5378, на экран выводят число 38​Эту прогу надо сделать на паскаль

Answer 1

var a, b, c: integer;

begin

readln(a);

b:=(a div 100)-(a div 1000)*10;

c:=a mod 10;

writeln(b, c);

end.