Вычисление суммы элементов ряда — Pascal(Паскаль)

program summr;
var
     i:integer;    { номер элемента ряда }
     elem:real;    { значение элемента ряда }
     summ:real;    { сумма элементов ряда }
begin
     summ:=0;
     for i:=1 to 5 do
     begin
         elem:=1/i;
         summ:=summ+elem;
         writeln(i:2,'  ',elem:4:2);
     end;
     writeln('Сумма элементов ряда: ',summ:4:2);
end.