Составить программу

[ROMA2PVT]

67(г). Дано натуральное число n (n<=100). Найти первую цифру
числа n.

uses crt;
var n,m,p:longint;
    Error: integer;
begin
clrscr;
writeln('Вводите натуральные числа, окончание ввода 0');
repeat
readln(n);
 If (N>100) or (Error<>0) then
	 Writeln('Число неверно задано! Повторите ввод!');
	 Until (N<=100) and (Error=0);
p:=n;
m:=0;
 repeat
  n:=n div 10;
 until n<10;
 if n=0 then m:=p
else
begin
m:=m+n;
end;
writeln(p,'->',m);
readln
end.

[Филантроп]

обе задачки решены тут:http://www.programmersforum.ru/showthread.php?t=92457