Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+[tex] \frac{1}{2}+ \frac{1}{3} + \frac{1}{4} +... \frac{1}{n} [/tex].

var s:real;n,i:integer;begins:=0;write ('Введите n: ');readln(n);for i:=1 to n do s:=s+(1/i);writeln ('S = ',s:0:2);end.