Câu 1:
program songuyen;
uses crt;
var n:integer;
begin clrscr;
writeln('nhap n='); readln(n);<br />if n mod 2 = 0 then writeln('n la so chan');
if n mod 2 <> 0  then writeln('n la so le');
readln;
end.

Câu 2
program mang;
uses crt;
var s,i,m:integer;
      A:array[1..100] of integer;
begin clrscr;
writeln('nhap m='); readln(m);<br />for i:=1 to m do<br />begin; writeln('A[i]='); readln(A[i]); end;
s:=0;
for i:=1 to m do s:=s+A[i];
writeln('tong cac so trong day la',s);
readln;
end.