если на паскаль, то:
program fgh;
var x,n,p: integer;
begin
writeln ('введите пятизначное число');
readln (x);
n: = x div 10000;
p: = n*10;
writeln ('результат - ', p);
end.
