На Паскале:
var a,d,c,k: integer;
begin
writeln('Vvedite znachenie peremennoj a');
readln(a);
writeln('Vvedite znachenie peremennoj d');
readln(d);
writeln('Vvedite znachenie peremennoj c');
readln(c);
writeln('Vvedite znachenie peremennoj k');
readln(k);
res:=(a+(d-12)*3)*(c-5*k);
writeln('(a+(d-12)*3)*(c-5*k)=',res);
readln;
end.