Do đề là chọn 1 trong 3 bài lên mik chọn bài 3 nha

Bài 1:

program bai_giai;
uses crt;
var A:array[1..100] of integer;
    n,i,t:integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    t:=0;
    for i:=1 to n do
        if A[i] mod 2=1 then t:=t+A[i];
    write(t);
    readln;
end.

Bài 2:

program bai_giai;
uses crt;
var st,ch:string;
begin
    clrscr;
    readln(st);
    readln(ch);
    while pos(ch,st)<>0 do delete(st,pos(ch,st),length(ch));
    write(st);
    readln;
end.

Bài 3:

program bai_giai;
uses crt;
var f:text;
    A:array[1..100] of integer;
    n,i:integer;
begin
    clrscr;
    Assign(f,'ketqua.txt');  rewrite(f);
    readln(n);
    for i:=1 to n do read(A[i]);
    for i:=1 to n do write(g,A[i],' ');
    readln;  close(f);
end.

Đối với bài 1 và bài 3 phải nhập số phần tử n rồi mới nhập mảng