Помогите!!! Пожалуйста!!! Ничего не понимаю в этом задании((
Составьте программу, решающую следующую задачу: Дано число n. Если оно неотрицательно, то возвести его в квадрат, а если отрицательно, то в третью степень.

Program n1;var n: real;beginwrite('введите число: ');readln(n);if n>0 then writeln(n*n) else writeln(n*n*n);end.