и ещё одна ошибка: в строчке writeln('p=',p:=m/v); ты используешь операцию присвоения, то есть ты присваиваешь p выражение m делить на v, но нельзя использовать другие операции в операциях, это является ошибкой, если ты хочешь дать p значение выражения которое я написал выше, то это надо делать перед объявлением новой операции, например так: p:=m/v;writeln('p=',p);