Найти значение выражения...

Найти значение выражения a+(d-12)*3)*(c-5*k) где значения переменных a,b.c и k вводится склавиатуры.

 

На Паскале:

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.