Задано действительное число k. eсли к отрицательное то значение x вычислить по формуле x=k^2, если к больше нуля или равно нулю- по формуле x=k^3 написать программу на языке паскаль

Var
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.