Определите значения переменных s и i после выполнения программы.
var i: integer; s: real;
begin
s:= 0;
i:= 1;
repeat
s:=s+1/i;
i:=i-1;
writeln \('s=', s\);
writeln \('i=', i\);
until i <= 1
end.