program bt_mang;

uses crt;

var i,n,max:integer;

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

begin

clrscr;

write('Nhap so N: '); readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so da nhap: '); 

for i:=1 to n do write(A[i],',');

max:=a[1];

for i:=1 to n do

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

write('So lon nhat la: ',max);

readln;

end.

Python :

n=int(input())
a=[int(input())for i in range(n)]
print(max(a))

C++ 

#include <iostream>
using namespace std ;
int main ()
{
    int Max_ ,n,a[100];
    cin >> n ;
    for (int i=1;i<=n;i++){
        cin >> a[i];
    }
    Max_ = a[1];
    for (int i=2;i<=n;i++) {
        if (Max_ <a[i]) {
            Max_ = a[i];
        }
    }
    cout << Max_ ;
}

Pascal 

uses crt;
 var a : array[1..100]of longint ;
  n,i,max : longint ;
   begin
    clrscr;
readln(n);
  for i := 1 to n do readln(a[i]);
max := a[1] ;
  for i := 2 to n do 
    if max < a[i] then max := a[i];
     write(max);
    end.