Как найти первые две цифры натурального числа в паскале?

Question

Как найти первые две цифры натурального числа в паскале?

Answer 1

Var
  n:longint;
  i,d:integer;
begin
  ClrScr;
  Write('n='); Read(n);
  if n<100 then Writeln(n:2)<br>  else begin
    repeat
      n:=n div 10;
      if n<100 then Writeln(n:2)<br>    until n<=99;<br>  end;
  Readkey
end.

Answer 2

Program al; 
   var n:integer;
 begin 
writeln('n='); 
readln(n);
  if (n >9) and (n<100) then writeln(n); <br>     if (n > 99) and (n<1000) then  writeln(n div 10);<br> if (n >1000) and (n<10000)   then writeln(n div 100); <br>  if n>10000 then writeln(n div 1000);
readln;
end.