Паскаль. задано натуральное число n. вывести первые две цифры заданного числа.

Var n:integer;
Begin
Write('n = ');ReadLn(n);
While n div 100 > 0 do
   Begin
   n:=n div 10
   End;
WriteLn(n)
End.