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