PascalABC.NET
begin
var (i, s) := (2, 1.0);
repeat
s += 1/i;
i += 1
until i > 1000;
Print(s) // должно получиться 7.48547086055034
end.
