Пожалуйста посчитайте составить программу пожалуйста

vara,b,c,biz,ok,sum:real;beginread(c,a,b);sum:=0;biz:=(3*160)/4;ok:=160-biz;biz:=biz-a;ok:=ok-b;sum:=(ok*c)+(biz*c*2);write(sum);end.