Помогите решить задачу:

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;