Помогите дорешать программу

[darika]

Дано a- натуральное число. Найти среди чисел 1, 1+1/2, 1+1/2 +1/3, .... первое болеше a.
Я думаю решение наподоби:
....
.....
i:=1;
repeat
k:= i +1/2;
inc(i);
until k>=a;

.....
думаю не правильно...но нужно точно через repeat.
исправте пожалуйста ошибки!

[DM_bite]

program Xd;
var a,i: integer;
    sum: real;
    begin
    sum:=1;
    i:= 1;
    ReadLn(a);
    repeat
    i:= i+1;
    sum:= sum+ 1/i;
    if sum>a then
     begin
      WriteLn(sum);
      break;
      end;
    until sum>a;
    ReadLn;
    end.

как-то так.

[darika]

а нельзя как нибудь попроще... без If ???

[DM_bite]

а нельзя как нибудь попроще... без If ???

А что такого в if?
Без if:

program Xd;
var a,i: integer;
    sum: real;
    begin
    sum:=1;
    i:= 1;
    ReadLn(a);
    repeat
    i:= i+1;
    sum:= sum+ 1/i;
    until sum>a;
    WriteLn(sum);
    ReadLn;
    end.

[darika]

Просто у нас препод просто ужас до любого дое...Спасобочки большое!!!!!!!!!!!!!!!!!!!!!