Viết chương trình pascal 1.khai báo và nhập mảng số nguyên n phần tử tên mình 2.in ra màn hình giá trị của mảng 3.in ra màn hình các phần tử có giá trị lẻ,tính tổng các số lẻ làm ơn giúp e với ;-;

program ChanPas;
uses crt;
var n, i, s : integer; a:array[1..100000] of integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do write(a[i],' ');
    writeln;
    s := 0;
    for i:=1 to n do
        if a[i] mod 2 <> 0 then begin
            write(a[i], ' ');
            s := s+a[i];
        end;
    writeln;
    write(s);
    readln;
end.

$\\$

`\bb\text{@Daoanhviet96}`