Помогите решить задачу:C клавиатуры вводится число n . Если оно положительное ,то выведите n^2(n*n).А если отрицательное , то выведите 0.

program Project2; uses Crt; var   n:real;      // переменная n типа real begin   readln(n); // считываем число с клавиатуры и кладем в переменную n   if (n < 0) then n := n * n else n := sqrt(n); // если n меньше нуля, то перемножаем n на n иначе берем корень квадратный из n   writeln(n:4:4); // выводим полученное число, 4:4 нужно для обрезания дроби, чтобы не получилось +E100000000 ( как пример ) readln; // ждем нажатия enter, чтобы программа сразу не завершилась после вывода результата end. Если будет ругаться на sqrt(n) тогда там где uses Crt пропишите uses Crt, Math;