uses crt;
var a,b,c,m,n,k:integer;
tien1,tien2,tien3:integer;
tongtien:integer;
begin
write('Nhap a= ');readln(a);
write('Nhap b= ');readln(b);
write('Nhap c= ');readln(c);
write('Nhap m= ');readln(m);
write('Nhap n= ');readln(n);
write('Nhap k= ');readln(k);
tien1:=a*k; {So tien nhan duoc cua gia cam tu 1 thang tuoi tro xuong}
tien2:=(m-k)*b; {So tien nhan duoc cua cua gia cam tu 1 thang tuoi toi 3 thang tuoi}
tien3:=(n-m)*c; {So tien nhan duoc cua gia cam tu 3 thang tuoi tro len}
tongtien:=tien1+tien2+tien3;
if (0<=k) and (k<=m) and (m<=n) and (n<=10000)
then writeln ('So tien nha nuoc ho tro la: ', tongtien)
else writeln ('Khong thoa man dieu kien');
readln;
end.
