Проверьте есть ли ошибки , program n_4 ; var p ,m ,v: real; begin writeln ( 'определение плоности вещества ') write : ( ' введите массу вещества ' ) writeln( 'определение массы вещества ') р=m\v writeln( ' p=') end.

ИСПРАВЛЕНО

program n_4 ;
var p ,m ,v :real;
begin
writeln ( 'Определение плотности вещества ');
writeln( ' Введите массу вещества ' );
readln(m);
writeln( ' Введите объем вещества ' );
readln(V);
writeln( 'Плотность вещества ');
р=m/v;
writeln( ' p=', p);
end.