Ну вот шаблон, и решение по 2й задаче, И скрин результатов работы.
P.S. С кодировками кириллицы могут быть проблемы.
Правильный ответ под номером 4.
Коля не читает книгу или не пьет чай
Д или не Р
1. Наполняем кувшин 3 литрами воды. В первом кувшине 3 л, во втором 0л
2. Переливаем все из первого во второй. В первом кувшине 0 л, во втором 3л
3. Повторяем п1. В первом кувшине 3 л, во втором 3л
4. Повторяем п2. В первом кувшине 0 л, во втором 6л
5. Повторяем п1. В первом кувшине 3 л, во втором 6л
6. Переливаем из первого во второй до наполнения второго. В первом кувшине 1 л, во втором 8л
7. Выливаем все из большего кувшина. В первом кувшине 1 л, во втором 0л
8. Повторяем п2. В первом кувшине 0 л, во втором 1л
9. Повторяем поледовательнось п1-п4 два раза, В первом кувшине 0 л, во втором 7л
Var i,n,s:integer;
begin
writeln ('Введите n');
readln(n);
s:=0;
for i:= 1 to n do
begin
S:=s+1/i;
end;
writeln('Сумма равна - ',s);
<span>end.</span>