Решение задачи Proc 34

#include <stdio.h>

float fact(int n){
    int temp=1,i;
    for(i=1;i<=n;++i) temp*=i;
    return temp;
}
int main(void)
{
    int i, n;
    for (i=1; i<=5; ++i){
        printf("N:");
        scanf("%i", &n);
        printf("fact: %f\n",fact(n));
    }
    return 0;
}

import random

def Fact(N):
    F = 1.0
    for i in range(1,N+1):
        F *= i
    return F

for i in range(1,6):
    #x = random.randrange(1,16)
    x = i
    print(x,":",Fact(x))
									

program Proc34;
 
Function  Fact(N:Integer):Real;
var
  i:integer;
  tempRez:Real;
begin
  tempRez:=1;
  for i:=1 to N do tempRez:=tempRez*i;
  Fact:=tempRez;
end;
 
var
  N,i:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);
   Writeln( Fact(N) );
  end;
end.