студопедия это

Ответ от АбвГдеЁж[гуру]
1
program qq;
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.