Дано натуральное число N.Если число содержит 5 цифр,то получить новое число M,которое образуется путем исключения средней цифры исходного числа.Если количество цифр не 5,то M=N.

 

P.S - решить без использования строковой переменной.

uses crt;var n,m:integer;beginreadln(n);if n div 1000>=10 thenm:=(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.