Найти значение выражения : (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.