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

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

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var n:integer;
  repeat
    n := ReadInteger('Введите число n>9999 и n <99999');
  until (n>9999) and (n<99999);
    println('Первая цифра числа', n div 10000);
end.