- Chương trình 1 :

uses crt;

var i, n, s1, s2 : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

for i := 1 to n do

if i mod 2 = 0 then s1 := s1 + i else s2 := s2 + i;

writeln('Tong so chan = ', s1);

writeln('Tong so le = ', s2);

readln

end.

- Chương trình 2 :

uses crt;

var M : array [1 .. 10] of integer;

i, Min : integer;

begin

clrscr;

write('Nhap day gom 10 so nguyen : ');

for i := 1 to 10 do read(M[i]);

Min := M[1];

for i := 2 to 10 do if M[i] < Min then Min := M[i];

write('Phan tu nho nhat = ', Min);

readln

end.

Tổng chẵn, lẻ:

uses crt;
var n,i,c,l:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod 2<>0 then l:=l+i 
else c:=c+i;
writeln('Tong so chan: ',c);
write('Tong so le: ',l);
readln
end.

Số nhỏ nhất: 

uses crt;
var i,min:integer;
M:array[1..10] of integer;
begin
clrscr;
readln(n);
for i:=1 to 10 do readln(M[i]);
min:=M[1];
for i:=1 to 10 do if min>M[i] then min:=M[i];
write('So nho nhat: ',min);
readln
end.