В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у — очередное значение суммы дробей; n — параметр цикла
program prim1;
uses crt;
var n: integer;
y: real;
begin
clrscr;
{Задаем начальное значение, равное нулю.}
y:=0;
{Организовываем цикл с параметром от 1 до 20.}
for n:=1 to 20 do
begin
{Находим очередную сумму.}
y:=y+1/n;
{Выводим на экран очередную сумму.}
writeln('y=',y);
end;
end.