program tinhtongtien;
uses crt;
var A:array[1..100] of longint;
n,i:byte;
s,max:longint;
begin
clrscr;
write('Nhap so luong thanh vien ung ho: '); readln(n);
writeln('NHAP SO TIEN TUNG BAN UNG HO');
for i:=1 to n do
begin
repeat
write('Ban thu ',i,' ung ho: ');
readln(A[i]);
if (A[i]>200000) or (A[i]<1000) then write('So tien ung ho phai tu 1000->200000');
until (A[i]<=200000) and (A[i]>=1000);
end;
s:=0; max:=A[1];
for i:=1 to n do
begin
s:=s+A[i];
if A[i]>max then max:=A[i];
end;
writeln('Tong so tien ung ho la: ',s);
writeln('Ca nhan ung ho tien lon nhat la: ',max);
readln
end.
