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

Question

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

Answer 1

Вроде бы так

program teu;

var k:integer;

begin

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

readln(k);

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

end.