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

[vad91996]

1)var
R,Pro:Real;
i,N:Integer;
begin
Pro:=1;
Write('Введите N: ');
Readln(N);
for i:=1 to N do
begin
Write('Введите ',i,' число: ');
Readln(R);
Writeln(R-Trunc(R));
Pro:=Pro*(R-Trunc(R));
end;
Writeln(Pro);
end.
2)
var
X,Rez,factorial,pow:Real;
N, i :Integer;
begin
Write('Введите X: ');
Readln(X);
Write('Введите N: ');
Readln(N);
Rez:=1;
pow:=1;
factorial:=1;
For i:=1 to N do
begin
factorial:=factorial*i;
pow:=pow*X;
Rez:=Rez+pow/factorial;
end;
Writeln(Rez);
end.

[mrcnn]

#include <stdio.h>
#include <locale.h>
double x, rez, factorial, pow;
int n, i;
void main(){
set_locale(LC_ALL, "Russian");
printf("Введите x: ");
scanf("%f",&x);
printf("Введите n: ");
scanf("%d", &n);
rez = 1.0;
pow = 1.0;
factorial = 1.0;
for(i=1;i<=n;i++)
{
factorial *= (double) i;
pow *= x;
rez += pow/factorial;
}
printf("%f\n", rez);
}

Код на си