var

  A, C, D, K:integer;

  res:integer;

begin

  Write('Введите A, C, D, K: ');

  Readln(A, C, D, K);

  res := (A + (D - 12) * 3) * (C - 5 * K);

  Writeln('Результат: ', res);

end.