program ct;
uses crt;
var A:array[1..20] of integer;
i,max:integer;
begin clrscr;
for i:=1 to 8 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
max:=A[1];
for i:=1 to 8 do
if A[i]>max then max:=A[i];
writeln('Max day so la: ',max);
readln;
end.
Học tốt!