дано пятизначное число .Вывести на экран его первую цифру

Добавил в решение проверку ввода пятизначного числа

program n1;var x:integer;beginwriteln('введите пятизначное число');read(x);x:=x div 10000;writeln('первая цифра числа=', x)end.