Где здесь ошибки?
var a,d,c,k:integer;
begin
read(a,d,c,k)
writeln('(a+(d-12)*3)*(c-5*k)')
end.

Ответы

Ответ дал: Мilkа
0
После read и writeln нет ;
Вас заинтересует