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