program ct;
uses crt;
var i,n,Max:integer;
dayso: array[1..20] of integer;
begin
clrscr;
for i:=1 to 8 do
begin
write('nhap dayso[',i,']:=');readln(dayso[i]);
end;
Max:=dayso[1];
for i:=2 to 8 do
if Max<dayso[i] then Max:=dayso[i];
writeln('gia tri lon nhat la:',Max);
readln
end.