{Найти значение переменной х, если х = (а + 3(d ? 12)) х х(с ? 5k),
а значения переменных a, d, с, k задаются с клавиатуры.}
program first;
var
a,d,c,k,x:integer;
begin
writeln('Введите ваши a,d,c,k: ');
readln(a,d,c,k);
x:=(a+3*(d-12))*(c-5*k);
writeln('x:= ',x)
end.