Найти значение переменной 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.