Cоставить программу умножения первой цифры пятизначного числа на 10.

если на паскаль, то:

program fgh;

var x,n,p:integer;

begin

writeln ('Введите пятизначное число');

readln (x);

n:= x div 10000;

p:= n*10;

writeln ('результат - ', p);

end.