uses crt; var a:array[1..4] of longint; i,s,max:integer; begin clrscr; s:=0; for i:=1 to 4 do begin write('Nhap so thu ',i,': '); readln(a[i]); s:=s+a[i]; end; max:=a[1]; for i:=2 to 4 do if a[i]>max then max:=a[i]; writeln('So lon nhat: ',max); write('Trung binh cong: ',s/4:0:2); readln; end.
