Viết công thức nhập vào dãy n phần tử là số nguyên
a) in ra lần lượt từng giá trị lần lượt trong dãy 
b)in ra tổng các giá trị là số lẻ

uses crt;
var n,i,s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        if a[i] mod 2<>0 then s:=s+a[i];
    end;
    write('Day vua nhap: ');
    for i:=1 to n do write(a[i],' ');
    writeln;
    write('Tong cac so le: ',s);
    readln
end.

- Đoạn chương trình nhập dãy n phần tử số nguyên :

write('Nhap so n = '); readln(n);

for i := 1 to n do read(A[i]);

- Đoạn chương trình in lần lượt giá trị trong dãy :

for i := 1 to n do write(A[i],' ');

- Đoạn chương trình in tổng giá trị là số lẻ :

S := 0;

for i := 1 to n do

    if A[i] mod 2 <> 0 then S := S + A[i];

write('Tong so le = ', S);