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

Program A1;
var
a,d,c,k:integer;
begin
read(a);
read(d);
read(c);
read(k);
writeln((a + (d - 12)*3) * (c - 5*k));
end.