Проверьте есть ли ошибки, program n_4 — var p, m, v:real-beginwriteln ‘Определение плоности вещества ‘write : ‘ Введите массу веществ

Проверьте есть ли ошибки ,срочно пожалуйста

program n_4 ;

var p ,m ,v:real;
begin
writeln ( ‘Определение плоности вещества ‘)
write :( ‘ Введите массу вещества ‘ )
writeln( ‘Определение массы вещества ‘)
р=mv
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.