program lon_nhat;

uses crt;

var n,i,x,max: integer;

Begin

         clrscr;

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

         max:=1;

         for i:=1 to n do

         begin

                  write('Nhap so thu ',i,': ); readln(x);

                  if max<x then max:=x;

         end;

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

         readln

End.

Program So_lon_nhat;

Uses crt;

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

     i,N,max : integer;

Begin

Clrscr;

Write('nhap so phan tu cua mang: '); readln(N);

For i:=1 to N do

  Begin

   Write('a[',i,']: '); readln(a[i]);

  End;

max:=0;

For i:=1 to N do

   If max<a[i] then max:=a[i];

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

Readln;

End.