Факториал

[Денис999]

Подскажите как можно усовершенствовать программу, сделать ее универсальной, что бы можно было вводить факториал например 3 раза и оно его обчисляло и выводило на экран как оно делает это.

program lab31;
uses crt;
function Fact(n:integer):integer;
begin
if n=1 then Fact:=20
else
begin
writeln(n);
Fact:=Fact(n-1)+1;
end;
end;
var
rez:longint;
i,n:byte;
begin
clrscr;
write ('Vedite n = ');
readln(n);
write ('Rezultat = ',Fact(n));
readln;
end.

[Utkin]

Да хоть 10 раз, ты популярно объясни - чего тебе надо? По-русски желательно, то есть так, чтобы тебя смогли понять другие.

[GetMax]

Цикл ему,видимо, нужен

While n >= 0 do
Begin 
   write ('Vedite n = ');
   readln(n);
   write ('Rezultat = ',Fact(n));
End;

[Денис999]

Одним словом мне надо что бы я ввел n=30, программа вывела мне 1 2 3...30 и правильно посчитало.

[GetMax]

Одним словом мне надо что бы я ввел n=30, программа вывела мне 1 2 3...30 и правильно посчитало.

;

Var
   i:byte;
Begin
  write ('Vedite n = ');
  readln(n);
  For i:=1 to N do
  Begin
     write ('При N = ',i,' Rezultat = ',Fact(i));
  End;
  Readln
End.

А что бы правильно посчитало надо функцию переделать

Function Fact(M:Byte):LongInt;
Begin
   If (M = 0) or (M = 1) then Fact:=1
   Else
   Fact:=Fact(M-1)*M
End.

[Денис999]

Спасибо большое))