Câu 1:

uses crt;

var a:longint; i:integer;

begin

clrscr;

A:=1;

for i:=1 to 19 do if i mod 2 = 1 then A:=A*i;

write('Tich la: ',A);

readln;

end.

Câu 2: 

uses crt;

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

      i,tong:integer;

begin

clrscr;

for i:=1 to 10 do

begin

read(a[i]);

if a[i] mod 2 = 0 then tong:=tong+a[i];

end;

writeln('Day vua nhap la: ');

for i:=1 to 10 do write(a[i],' ');

writeln;

write('Tong cac so chan co trong day vua nhap la: ',tong);

readln;

end.

Câu 1:
uses crt;
var i:integer;a:longint;
begin
 clrscr;
 a:=1;
 for i:=1 to 19 do if i mod 2<>0 then a:=a*i;
 write('Gia tri bieu thuc A: ',a);
 readln;
end.
Câu 2:
uses crt;
var a:array[1..100] of integer;i:integer;s:longint;
begin
 clrscr;
 for i:=1 to 10 do
  begin
         write('Nhap cac so nguyen: '); read(a[i]);
   if a[i] mod 2<>1 then s:=s+a[i];
  end;
 write('Day so nguyen: ');
 for i:=1 to 10 do write(a[i],' ');
 writeln;
 write('Tong cac so chan trong day: ',s);
 readln;
end.