Вопрос составить программу которая введет с клавиатуры целое четырехзначное число и заменит нулями вторую и

[кирилл240798]

четвертую цифры, выведет результат на экран. Например, число 2478 должно превратиться в 2070

 

[екатерина]

var k:integer; begin readln(k); writeln(k div 1000*1000+k div 10 mod 10*10) end.