Дано натуральное число n (n ≤ 100), найти первую цифру числа n — Pascal(Паскаль)

var
a:integer;
begin
readln(a);
if a<10 then wtiteln(a)else writeln(a div 10);
readln;
end.

var
a:integer;
begin
readln(a);
if a<10 
then 
  wtiteln(a) 
else
  if a < 100
  then
    writeln(a div 10)
  else
    writeln('1');
readln{;}
end.

var
a:integer;
begin
readln(a);
if a<10 then wtiteln(a)else if a=100 then writeln(1) else writeln(a div 10);
readln;
end.