помогите пожалуйста перевести с языка паскаль в СИ
var
a:array[1..n] of real;
s:real;
b:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
begin
write ('a[',i,']=');
read (a[i]);
end;
s:=0;
for i:=1 to n do;
s:=s=a[i];
s:=s/n;
for i:=1 to n do
b[i]:=a[i]-s;
writeln ('s=',s:6:2);
for i:=1 to n do
writeln ('b[',i,']=',b[i]:6:2);
end.