viết hàm hoặc thủ tục tính S=a^n+b^m; s1=1+2+3+...n; s2=1/2+1/3+...1/100

Var s2: real; s,s1:longint;

i:integer; a,b,n,m:integer;

procedure nhap;

begin

Write(‘nhap a va b= ‘); readln(a,b); 

Write(‘nhap n va m= ‘); readln(n,m);

end;

function luythua:longint;

begin

Luythua:=exp(n*ln(a))+ exp(m*ln(b));

end;

function  s1:longint;

begin 

s1:=0;

for i:=1 to n do s1:=s1+n;

end;

function s2:real;

begin

s2:=0;

for i:=2 to 100 do s2:=s2+1/i;

end;

begin

clrscr;

nhap;

Writeln(‘luy thua= ‘,luythua)

Writeln(‘s1=‘,s1);

Write(‘s2=‘,s2:5:2);

readln

end.