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