Определите значение переменных s и i после выполнения программы.
var s, i: real;
begin
s:= 0;
i:= 2;
while i > 1 do
begin
s:=s + 1/i;
i:=i - 1;
end;
end.