Lời giải :
Bài 1:
program hotrotinhoc ;
var n,i,tich : integer ;
begin
write('Nhap n'); readln(n);
tich:=1;
for i:= 1 to n do
if i mod 2 = 0 then tich := tich * i ;
write('Tich cac so chia het cho 2 la: ',tich);
readln
end.
Bài 2:
program hotrotinhoc ;
var a: array[1..10] of integer ;
i,max : integer ;
begin
for i:= 1 to 5 do
begin
write('So nguyen thu ',i,':'); readln(a[i]);
end;
max := a[1] ;
for i:= 2 to 5 do
if max < a[i] then max:=a[i] ;
write('So lon nhat la',max);
readln
end.