Viết chương trình nhập số nguyên dương N (<=100) A. Tính tổng các số nguyên vừa nhập B. Đưa ra màn hình các số lẻ C. Tính giá trị nhỏ nhất số nguyên n

uses crt;
var n,i,s,min:longint; a:array[1..100]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do
      begin
         readln(a[i]);
         inc(s,a[i]);
      end;
   min:=a[1];
   for i:=2 to n do
      if (a[i]<min) then min:=a[i];
   writeln('Tong: ',s);
   write('Cac so le: ');
   for i:=1 to n do
      if (a[i] mod 2=1) then write(a[i],' ');writeln;
   writeln('Min: ',min);
readln;
end.

uses crt;
var i,n,s,min:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('Nhap n= (n<100) ');readln(n);
   min:=high(longint);
   for i:=1 to n do 
      begin 
         write('Nhap phan tu thu ',i,': ');readln(a[i]); 
         inc(s,a[i]);
         if min>a[i] then min:=a[i];
      end;
   writeln('A. Tong cac so nguyen: ',s);
   write('B. Cac so le: '); 
   for i:=1 to n do if a[i] mod 2=1 then write(a[i],' '); writeln;
   writeln('C. Gia tri nho nhat: ',min);
readln
end.