Тема: Pascal.Циклы1)Напечатать таблицу умножения на 6(умножение от 1 до 9)2)Найти сумму

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.