{Bai 2:} 
program loc_day; 
uses crt; 
var a: array[1..100] of integer; 
j,i,n,sole,sochan,so_ngto:integer; 

{Than chuong trinh} 
begin 
clrscr; 
write('N= '); readln(N); 
for i:=1 to n do 
begin 
write('A(',i,')= '); 
readln(a[i]); 
end; 
{Kiem tra} 
sochan:=0; 
sole:=0; 
so_ngto:=0; 
for i:=1 to n do begin 
if (a[i] mod 2 = 0) then sochan:=sochan+1 
else if (a[i] mod 2 = 1) then sole:=sole+1; 
if a[i]>1 then 
begin 
if a[i]=2 then so_ngto:=so_ngto+1 
else begin 
j:=1; 
repeat 
j:=j+1; 
until (a[i] mod j=0) or (j=a[i]-1); 
if j=a[i]-1 then so_ngto:=so_ngto+1; end; 
end; end; 
writeln('Trong day co: '); 
writeln(sole,' so le'); 
writeln(sochan,' so chan'); 
writeln(so_ngto,' so nguyen to'); 
readln 
end. 
--------------------------------------... 

Viết chương trình nhập từ bàn phím số nguyên dương N(N<=100) và dãy A gồm N số nguyên.Tìm phần tử lớn nhất của dãy số đó bằng cách sử dụng hàm tìm Max của 2 số.