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

Var x, a, d, c, k: integer;
begin
writeln ('Введите четыре целых числа');
read (a, d, c, k);
x:=(а+(d-12)*3)*(c-5*k);
writeln ('x=', x);
end.