Viết phương trình pascal tìm số tự nguyên lớn nhất và in ra màn hình

Viết phương trình pascal thực hiện các chương trình sau 

• Nhập n số nguyên từ bàn phím
• In ra màn hình tổng,tích,tb các số tự nhiên vừa nhập 
• In ra màn hình các số tự nhiên vừa nhập đc là số chẵn 
• In ra màn hình các số tự nhiên vừa nhập đc là số lẻ
• In ra màn hình số tự nhiên lớn nhất và nhỏ nhất 

Giải bài tìm số nguyên lớn nhất, các bài còn lại các bạn tự giải

Program <chuongtrinh>

    var a:array[1..1000000] of integer;
    
    max,n,i:integer;
    
    begin
        
        write('nhap n :');
        
        read(n);
        
        for i:=1 to n do
        
        begin
                write('a[',i,']=');
                read(a[i]);
        end;
        
        max:=a[1];
        
        for i:=1 to n do
        
        if max<a[i] then max:=a[i];
        
        write('So lon nhat la: ',max);

    end.