Помогите решить (паскаль, while)

Question

Дано число A (>1). Вывести наименьшее из целых чисел K, для 
которых сумма 1 + 1/2 + .+1/K будет больше A, и саму эту сумму.

Иван Гришанов · Accepted Answer

var k:integer; a,s:real; 
begin 
write('A: '); readln(a); s:=0; k:=0; 
while s<=a do begin inc(k); s:=s+1/k end; 
writeln('K=',k,' Sum=',s); readln 
end.

Ируська Андреева · Answer

... 
var k: integer; 
a, sum: real; 
... 
sum := 0; 
k := 0; 
while (a > sum) do 
begin 
Inc(k); 
sum := sum + ( 1 / k ); 
end 
... 
Write("K = "); WriteLn(k); 
Write("Summa = "); WriteLn(sum);