Перевести код на С

Помогите перевести данный код на С:

var a: array [0..10] of real;
  i,ls,lg,n:integer;
  x,xs,fs,fg:real;
begin

  write('степень');
  readln(n);

  for i:=0 to n do begin
    write('коэффициент при x в степени ',i);
    readln(a[i]);
  end;
  write('x= '); readln(x);