Viết chương trình tính tổng s=1+1/2....+1/n có sử dụng chương trình con

program tinh_tong;

uses crt;

var n:integer;

{---Chuong-trinh-con---}

function tong(m:integer):real;

var i:integer;

begin

      tong:=0;

      for i:=1 to m do

            tong:=tong+1/i;

end;

{---Chuong-trinh-chinh---}

BEGIN

      clrscr;

      write('Nhap n: ');  readln(n);

      write('S= ',tong(n):0:3);

      readln;

end.

uses crt;
var n:integer;
{---Ham-tong---}
function s(n:integer):real;
var i:integer;
begin
      s:=0;
      for i:=1 to n do s:=s+1/i;
end;
{---Chuong-trinh-chinh---}
BEGIN
      clrscr;
      write('Nhap n: '); readln(n);
      write('s=',s(n):0:2);
      readln;
END.