Помогите пожалуйста перевести код с паскаля на язык си

[vad91996]

program Series7;
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.