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

Question

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

Answer 1

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.