C++ :

#include<cstdio>
using namespace std;
int a[101];
int main()
{
	int i,n;
	scanf("%d",&n);
	for(i=1;i<=n;i++)
	{
		scanf("%d",&a[i]);
	}
	int m=a[1];
	for(i=1;i<=n;i++)
	{
		if(m<a[i])
		{
			m=a[i];
		}
	}
	printf("%d",m);
	return 0; 
}

Pascal :

Program jjisgay;
 var
  i,n,v:longint;
  a:array[1..1000] of longint;
begin
  readln(n);
  for i:= 1 to n do
    read(a[i]);
  v:=0;
  for i:=1 to n do
    if (a[i]>v) then v:=a[i];
  write(v);
end.