1.вычислить значение переменной y при заданном значении n: y=1/1+1/2+1/3+ + 1/n. использовать цикл типа до. (паскаль) 2. найти все целые двузначные числа, удовлетворящие условию: остаток от деления на 3 равен 2. (паскаль)

1).Использовал цикл,но условия не до конца понял
program c1;
var n,i:integer;
y,l:real;
begin
l:=1;
readln(n);
for i:=1 to n do
begin
y:=y+(1/l);
l:=l+1;
writeln(y);
end;
end.

2).

program c1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if (i mod 3=2) then write(i,' ');
end;
end.