Написать программу 8 класс. Паскаль.

тяжело

Program P1; uses crt; var m, V: real; begin clrscr; writeln ('Введите с клавиатуры значения массы вещества и его объема (только числа), после ввода значения каждого из параметров нажмимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); write ('Введите массу вещества: '); readln (m); if m