Дано пятизначное число А. Составить программу, которая бы находила первую цифру введенного числа- Pascal(Паскаль)

var
 s,k:integer;
begin
readln(s);
if s>9 then
begin
 while s>9 do
  s:=s div 10;
  k:=s;
end
 else
  k:=s;
 writeln(k);
 end.

Var
 s:string;
 k:integer;
begin
readln(k);
str(k,s);
writeln(s[1]);
end.

var
a,a1:integer;
begin
write('Vvedite a:');
repeat
read(a);
until (a>=10000) and (a<100000);
a1:= a div 10000;
write(a1);
readln;
end.