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

Question

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

Answer 1

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

Answer 2

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

Comments

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