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

Вроде бы так

program teu;

var k:integer;

begin

writeln('Введи число');

readln(k);

writeln(k mod 10, ' ',(k mod 1000) div 100 )

end.