{* Первая цифра натурального числа *}

Unit FIRSTCF;
Interface
Implementation
Begin
 writeln('Найти первую цифру натурального числа.');
End.

Program z1;

Uses firstcf.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  a : longint;
  i : integer;
  k : integer;
  s : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('ввод цифры');
  readln(a);
  While a > 0 Do
  Begin
    k := a Mod 10;
    a := a Div 10;
  End;
  writeln(k);
  readkey; {* Ждем нажатия пользователя *}
End.