Mọi người giúp mình với 1) Viết chương trình nhập vào dãy số n phần tử.Xuất ra các số lẻ 2)Viết chương trình tính n! Bằng chương trình con: n! =1.2.3.4.5.6...n

1)

uses crt;
var i,n:longint; a:array[1..1000000]of longint;
begin 
clrscr;
   write('Nhap n): ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap phan tu thu ',i,': ');readln(a[i]);  
      end; 
   write('Cac so le: ');
   for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
readln
end.

2)

uses crt;
var n:longint;
function gt(a:longint):longint;
var i:longint;
begin
   gt:=1;
   for i:=1 to a do gt:=gt*i;
end;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   writeln(gt(n));
readln
end.

Câu 1:

uses crt;
var a:array[1..1000]of longint;
    n,i:word;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do
        if a[i] mod 2=1 then write(a[i],' '); 
readln;
readln;
end.

Câu 2:

uses crt;
var n:word;
function isFactorialOfN(n:word):longint;
var i:word;
begin
    if n<2 then exit(1)
    else exit(n*isFactorialOfN(n-1)); 
end;
begin
clrscr;
    readln(n);
    write(isFactorialOfN(n));
readln;
end.