1.Вычислить значение переменной Y при заданном значении N: Y=1/1+1/2+1/3+ ... +

1)
program sum_1_na_n;
var y: real;
i,N:integer;
begin
writeln(Введите значение N.);
readln(N);
i := 0;
y := 0;
repeat
i :=i + 1;
y := y + 1/i;
until i = N;
writeln(Cумма y = , y : 8 : 4)
end.

2)
program ost;
var i: integer;
begin
i := 1;
repeat
if (i - 3 * int(i/3) = 2) then write (i, );
if i mod 10 = 0 then writeln; //Числа каждого 10-ка в новейшей строке
i:=i + 1;
until i = 99;
end.