Тема: pascal.циклы 1)напечатать таблицу умножения на 6(умножение от 1 до 9) 2)найти сумму всех трехзначных чисел,кратных 3 3)вычислить сумму 1+1/2+1/3++1/n

1)var a,b:integer;
begin
for a:=1 to 9 do
begin
b:=a*6;
writeln(a,'*6=',b);
end;
end.
2)var a,b:integer;
begin
b:=0;
for a:=100 to 999 do
begin
if (a mod 3=0) then b:=b+a;
end;
writeln('Сумма равняется ',b);
end.
3)var a,n:integer;
b:real;
begin
b:=0;
writeln('Введите число n');
readln(n);
for a:=1 to n do
begin
b:=b+(1/a);
end;
writeln('Сумма равняется ',b);
end.