В пятизначном числе вычеркнуть цифры через одну, начиная вычеркивать первую слева. (Дано: 73942. Результат: 34) ПАСКАЛЬ

Var A:integer; Begin WriteLn('Введите пятизначное число'); ReadLn(A); WriteLn((A div 1000) mod 10,(A div 10) mod 10) End.