Program Kookie;
uses crt;
type ArrInt = array [ 1 .. N] of integer;
var
A: ArrInt;
N, i, Max: integer;
begin
clsrcr;
write( 'A[', i ,'] = ');
readln(A[i]);
Max := 0;
for i :=1 to N do
A[i] :=Max;
if A[i] >A[i+1] then A[i+1] := Max;
writeln( ; gia tri lon nhat la : ,' Max);
readln
end.