Program asd;
var a,b,c,d,k:integer;
begin 
Write('Write B: '); Readln(B); 
Write('Write C: '); Readln(C);   
Write('Write D: '); Readln(D);   
Write('Write k: '); Readln(k);   
 a:=(b+c)*d-k; 
  Writeln('Resul: ',a);
end.

Var b,c,d,k,s:integer; begin
 Writeln('b:'); 
 readln(b); 
 Writeln('c:'); 
  readln(c); 
  Writeln('d:'); 
   readln(d); 
   Writeln('k:');
     readln(k);
       s:=b+c*d-k;   
 Writeln(s);
end.