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

[Евгений]

Здравствуйте!
Дана задача по вычислению факториала, с которой вроде справился, но есть ограничения: "тип обработанных данных-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.

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

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

[Lapp]

Извинения приняты.

Во время получения всего не учтешь, это невозможно. Но мне кажется, что всегда можно спросить по мылу. Тут же я имел в виду, что просто скзать о своих мыслях. Ты же даже привел прогу. Такая простая вещь как проверка if M>12 могла бы там быть, если тебе это приходило в голову. Ладно, проехали .

Напиши, в чем ты работаешь. Какой компилятор используешь?