Submission #3446496

Source Code Expand

var
 a,b,c,k,ans,x,y:longint;
beginb;
 readln(a,b,c,k);
 readln(x,y);
 ans:=x*a+y*b
 if x+y>=k then ans:=ans-(x+y)*c;
 writeln(ans);
end.

Submission Info