определите значение переменных s и i после выполнения следующих операторов:
s:=0;
i:=1;
repeat
s:=s+1/ i;
i:=i-1;
until i <=1;