Var a:array[1..100] of integer;

      i,n,max:integer;

      begin

        write('nhap so phan tu cua mang:');readln(n);

        for i:=1 to n do

        begin

          write('a[',i,']=');readln(a[i]);

         end;

         max:=a[1];  

         for i:=2 to n do

         if a[i]>max then max:=a[i];

         writeln('phan tu lon nhat:',max);

      readln

      end.           

$\color{green}{\text{Program BTT;}}$ 
$\color{red}{\text{Uses crt;}}$ 

$\color{blue}{\text{Var A: array[1..1000] of longint;}}$ 

$\color{yellow}{\text{n,i,max: longint;}}$ 

$\color{green}{\text{Begin}}$ 

$\color{red}{\text{        Clrscr;}}$ 

$\color{yellow}{\text{        Write('Nhap n: '); Readln(n);}}$ 
$\color{red}{\text{        max:=0;}}$ 

$\color{blue}{\text{         For i:=1 to n do}}$ 

$\color{green}{\text{        Begin}}$ 

$\color{pink}{\text{                Write('A[',i,'] = ');}}$ 

$\color{blue}{\text{                Readln(A[i]);}}$ 

$\color{red}{\text{                If A[i]>max then max:=A[i];}}$ 

$\color{green}{\text{        End;}}$ 

$\color{blue}{\text{        Write('Max = ',max);}}$ 

$\color{yellow}{\text{       Readln}}$

$\color{blue}{\text{End.}}$