program Tim_Max;
//1 Khai bao bien
var i,n: integer; Max: real;
    A: array[1..100] of real;
begin
    //2 Nhap gia tri bien n
    write('Hay nhap so hoc sinh: N = ');
    readln(n);
    writeln('Nhap cac phan tu cua day so, chieu cao tinh theo m: ');
    //3 Cau lenh lap bien i tu 1->N
    for i:=1=1 to N do
    begin
        write('a[',i,']= ');
        readln(a[i]);
    end;
    //4 Gan bien Max = a[1]
    Max:=a[i];
    //5 Cau lenh lap bien i tu 2->N
    for i:=2 to N do
        if Max<a[i] then Max:=a[i];
        //6 In ket qua ra man hinh
        write('So lon nhat la Max = ',Max:5:2);
        readln;
end.

$\text{// 1. Khai báo biến}$

$\text{// 2. Thông báo nhập độ dài của dãy}$

$\text{// 3. Nhập dãy số}$

$\text{// 4. Khởi tạo Max}$

$\text{// 5. Tìm Max}$

$\text{// 6. Hiển thị Max ra màn hình}$

$\text{* * * * ** * * * ** * * * ** * * * ** * * * *}$

$\text{// 1. Khai báo biến i, N, Max và mảng A}$

$\text{// 2. N là biến chứa độ dài dãy}$

$\text{// 3. Biến i chạy từ 1 đến N, nhập a[1] ... a[N]}$

$\text{// 4. Max với giá trị ban đầu là A[1]}$

$\text{// 5. Nếu a[i] > Max thì Max nhận giá trị mới là a[i]}$

$\text{// 6. Lệnh write in giá trị max ra màn hình}$