Найдите первую цифру числа. К примеру, для числа 7658 это цифра 7.

Программка(только для положительных чисел!):

var num,prev:integer;
begin
readln(num);
while numgt;0 do begin
  prev:=num;
  num:=num div 10;
end;
writeln(prev);
end.

Блок-схема описывается приблизительно так:
1. Получаем число
2. Отбрасываем одну его цифру
3. Если получили 0, то выводим то, что было до отбрасывания(переменная prev), по другому перебегаем к пт 2.

Также не полностью правдивый, но тоже действенный вариант:
var s:string;
begin
readln(s);
writeln(s[1]);
end.