Для нахождения суммы ряда вида 1/n, где n изменяется от 1 до 100 в Pascal необходимо написать следующий код:

program SumOfSeries;
var
sum: real;
n: integer;
begin
sum := 0;
for n := 1 to 100 do
begin
sum := sum + 1/n;
end;
writeln('Сумма ряда 1/n, где n от 1 до 100 = ', sum:0:6);
end.

После запуска данной программы на экран будет выведено значение суммы ряда 1/n, где n меняется от 1 до 100.