Недавнее содержимое от Esda

Перевод с языка Паскаль в С помогите пожалуйста перевести с языка паскаль в СИ:star2::grud: 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...