Через паскаль?
Uses crt; var a,x,c,v,n,d,b:real; begin write('oklad='); readln(a); write('otrabotannie dni='); readln(x); write('rabochie dni='); readln(c); v:=a/c*x; n:=v*0.13; d:=d*0.01; b:=v-(n+d); write(b); end.