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