Hàm:
uses crt;
var n:longint;
function sum(n:longint):real;
begin
sum:=0;
exit(n*(n+1)/2);
end;
function tich(n:longint):longint;
var i:longint;
begin
tich:=1;
for i:=1 to n do tich:=tich*i;
end;
begin
clrscr;
readln(n);
writeln(sum(n):0:0);
writeln(tich(n));
readln;
end.
Thủ tục:
uses crt;
var n:longint;
procedure sum(n:longint);
var s:real;
begin
s:=n*(n+1)/2;
writeln(s:0:0);
end;
procedure tich(n:longint);
var i,res:longint;
begin
res:=1;
for i:=1 to n do res:=res*i;
write(res);
end;
begin
clrscr;
readln(n);
sum(n);
tich(n);
readln;
end.
