Submission #3446503
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
Submission Time | |
---|---|
Task | A - 動物園 |
User | luogu_bot2 |
Language | Pascal (FPC 2.6.2) |
Score | 0 |
Code Size | 138 Byte |
Status | CE |