перевод из Pascal в Си

[ZVEZDOKRIK]

Здравствуйте, нужно решить данную задачу:
Ввести действительное число а. Найти среди чисел
1, 1 + 1/2, 1 + 1/2 + 1/3, …
первое, большее а. Вывести это число на экран.

Написал код на Си, но он работает неправильно

#include <stdio.h>
#include <stdlib.h>
#include<math.h>

int main()
{
  int n = 1;
double b = 1.0;
double a;
scanf("%lf",a);
while (b<a)
{
n++;
b=b+(1/n);

}
  printf("%lf", b);

    return 0;
}

написал такой же алгоритм на Pascal и все работает

var
n:integer;
a,b:real;
begin
readln(a);
b:=1;

while (b<a) do
begin
n:=n+1;
b:=b+(1/n);
end;
write(b);
end.

Подскажите, пожалуйста, где я ошибся?
______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[digitalis]

scanf("%lf",&a);

[Serge_Bliznykov]

сделайте n double

  double n = 1.0;
double b = 1.0;

а ещё непонятно, почему в Паскале n в начале не иницилизируется единицей.
Тогда и в коде на Си сделайте

double  n = 0.0;