* Thuật toán:
Input: Cho giá trị của 1/3 dãy số nguyên.
Output: Tìm giá trị lớn nhất trong 1/3 dãy số nguyên trên.
* Mô tả thuật toán:
Bước 1: Nhập N và dãy số nguyên $a_{1}$, $a_{2}$ …, $a_{N}$. 
Bước 2: Max <- $a_{1}$, i<-2;
Bước 3: Nếu i> N thì đưa ra giá trị Max rồi kết thúc;
Bước 4: Nếu Max<a[i]  thì Max := a[i];
Bước 4.5. i := i + 1 rồi quay lại bước 3;

* Viết chương trình nhập vào 1/3 dãy số trên để kiểm tra kết quả:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do 
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End;
max:=a[1];
For i:=2 to n do If max<a[i] then max:=a[i];
Write(' So lon nhat trong day do la: ',max:2);
Readln
End.

Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do 
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End; 
max:=a[1];
For i:=2 to n do If max<a[i] then max:=a[i];
Write(' So lon nhat trong day do la: ',max:2);
Readln;
End.