Найти значение переменной x, если x = (a + 3(d – 12))x( c – 5k), а значения переменных a. d, c, k, с клавиатуры

Begin
var a, d, c, k: real;
Writeln('Введите а');
Readln(a);
Writeln('Введите d');
Readln(d);
Writeln('Введите c');
Readln(c);
Writeln('Введите k');
Readln(k);
Writeln('Икс равен ', (a + (3 * (d - 12) * (c - (5 * k;
end.