Вычисление факториала, программа должна сообщать о переполнении Опции

[Евгений]

Здравствуйте!
Дана задача по вычислению факториала, с которой вроде справился, но есть ограничения: "тип обработанных данных-longint, если результат не помещается в 4 байта программа должна сообщить об этом"
Вот что написал:

Program Factoreal;
uses crt;
 var
 N: longint;
 M,I: integer;
  Begin
   clrscr;
   N:=1;
   write('введите число>=0    ');
   readln(M);
    if M=0 then N:=1
    else
     for I:=1 to M do
     N:=N*I;
     writeln ('Факториал равен:','   ',N);
   readln;
  end.

Как добиться того чтобы программа сообщала о переполнении? Перепобовал многое, но в итоге только еще больше запутался.
Может есть у кого какие идеи?

Сообщение отредактировано: Евгений - 27.11.2010 20:44

[Krjuger]

Ну раз заочник,то когда получаеш задание,досканально выпытывай у преподавателя,чо именно ему надо,в каком виде представить.В общем пытай,пока сам досканально не поймеш,что от тебя требуется,либо пока тебе не дадут полную волю действия.Если не можеш во время получения задания,то возьми какое нибудь мыло у него или любую связь для контакта,чтобы всегда можно было утонить задание.