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.