câu 1:
var n: byte;
Function s(a: byte): longword;
Var i: byte;
Begin
S:=1;
For i:=1 to a do s:=s*i;
End;
Begin
Write('nhap n = '); readln(n);
Write('S = ', s(n));
Readln
End.
câu 2:
var a: array[1..100] of integer;
i, n: byte;
Tong: longword;
Procedure tinhTong;
Begin
Tong:=0;
For i:=1 to n do
If (a[i]>0) and (a[i] mod 2 = 0)
Then tong:=tong+a[i];
End;
Begin
Write('n = '); readln(n);
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
End;
TinhTong;
Write('tong: ', tong);
Readln
End.