function maksimal(A: array of integer):integer;
var
i,maks : integer;
begin
maks:=A[low(A)];
for i:= low(A) + 1 to high(A) do begin
if A[i] > maks then begin
maks:=A[i];
end;
end;
Maksimal := maks;
end;

var
A: array[1..100] of integer;

begin
A[1] :=45;
A[2]:=56;
A[3]:=6;
A[4]:=34;
A[5]:=67;
writeln(Maksimal(A));
readln;
end.