Дано натуральное число n.если число содержит 5 цифр,то получить новое число m,которое образуется путем исключения средней цифры исходного числа.если количество цифр не 5,то m=n. p.s - решить без использования строковой переменной.

Uses crt;
var n,m:integer;
begin
readln(n);
if n div 1000>=10 then
m:=(n div 10000)*1000+((n div 1000)mod 10)*100+((n div 10) mod 10)*10+(n mod 10)
else m:=n;
writeln(m);
end.