uses crt;
var a:array[1..5] of real;
c,i: integer;
tong_loi_nhuan,loi_nhuan_trung_binh: real;
begin
clrscr;
   tong_loi_nhuan:=0;
   for i:=1 to 5 do
        begin
                write('Hay nhap loi nhuan cua cong ti tiep theo: ');
                readln(a[i]);
                tong_loi_nhuan:=tong_loi_nhuan+a[i];
        end;
   loi_nhuan_trung_binh:= tong_loi_nhuan/5;
    c:=0;
    writeln('Danh sach cong ti co loi nhuan thap hon muc trung binh');
    for i:=1 to 5 do
    if a[i]<loi_nhuan_trung_binh then
       begin
       writeln('Cong ti thu ',i,' thu nhap ', a[i]:10:2);
       c:=c+1;
       end;
    writeln('Co tong cong ',c,' cong ti co muc loi nhuan thap hon muc trung binh');
readln
end.