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.
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.