program q;<br />
uses crt;<br />
var n,m,l:integer;<br />

begin<br />
writeln('ввести число n');<br />
readln(n);<br />

m:=n div 1000;<br />
l:=m mod 10;<br />
writeln('m=',m);<br />
readln;<br />
end.<br />