Требуется написать программу, которая по заданным значением A, C, D и K находит значение выражения (A+(D−12)⋅3)⋅(C−5⋅K).

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.