Программа Паскаль. Здание — разработать функцию с применением примененнием…

(FOR) function sumf (i: integer): real; begink: =1; sumf: =1; {так как для i1 sum=1}for i: =1 to n do (n-колличество членов, вводится с клавиатуры) begink: =k*i; f: =k; sumf: =sumf+1/f; endWHILE) function sumw (i: integer): real; begink: =1; i: =1; sumw: =1; while i <= n dobegink: =k*i; f: =k; sumw: =sumw+1/f; endREPEAT) function sumr (i: integer): real; begink: =1; i: =1; sumr: =1; repeatk: =k*i; f: =k; sumr: =sumr+1/f; i: =i+1until i