Помогите!!! Пожалуйста!!!! Составьте программу, решающую следующую задачу: Дано число n. Если оно неотрицательно, то возвести его в квадрат, а если отрицательно, то в третью степень.
program zadacha;
var
n,x:real;
begin
writeln('vvedite chislo');
readln(n);
if n>0 then x:=sqr(n);
if n<0 then x:=sqr(n)*n;</p>
writeln(x);
end.