Дано натуральное число N. Найти первую цифру числа N — Pascal(Паскаль)

var
a:longint;
begin
readln(a);
while a>=10 do
a:=a div 10;
writeln(a);
readln;
end.