var a, d, c, k, result: integer;beginwriteln('Введите значения переменных a, d, c, k:');readln(a, d, c, k);
result := (a + (d - 12) 3) (c - 5 * k);
writeln('Результат вычислений выражения: ', result);end.
var a, d, c, k, result: integer;
begin
writeln('Введите значения переменных a, d, c, k:');
readln(a, d, c, k);
result := (a + (d - 12) 3) (c - 5 * k);
writeln('Результат вычислений выражения: ', result);
end.