var a:array[1..6]of longin;

      t:real;

      i:byte;

begin

 writeln('nhap lan luot so bao xi mang vac duoc moi ngay');

 for i:=1 to 3 do

 readln(a[i]);t:=0;

writeln('nhap lan luot so tien tra cho moi bao xi mang theo ngay');

 for i:=4 to 6 do begin

  readln(a[i]);

  t:=t+(a[i]*a[i-3]);

end;

writeln('so tien Bom nhan duoc la:',t:0:0);

 writeln('so tien nhan duoc trung binh 1 ngay la:',t/3);

readln;

end.

uses crt;
var a,b,c,x,y,z,tc1,tc2,tc3,tb: real;
begin
    clrscr;
    write('Nhap so bao xi ngay dau tien: ');
    readln(a);
    write('Nhap so bao xi ngay thu hai: ');
    readln(b);
    write('Nhap so bao xi ngay thu ba: ');
    readln(c);
    write('Nhap so tien cong moi bao xi mang ngay dau tien: ');
    readln(x);
    write('Nhap so tien cong moi bao xi mang ngay thu hai: ');
    readln(y);
    write('Nhap so tien cong moi bao xi mang ngay thu ba: ');
    readln(z);
    tc1:=a*x;
    tc2:=b*y;
    tc3:=c*z;
    tb:=(tc1+tc2+tc3)/3;
    writeln('Tien cong ngay 1 la: ',tc1:0:2);
    writeln('Tien cong ngay 2 la: ',tc2:0:2);
    writeln('Tien cong ngay 3 la: ',tc3:0:2);
    writeln('Trung binh ',tb:0:2);
    readln
end.