Задано действительное число K. Eсли к отрицательное то значение X вычислить по формуле...

Question

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

Answer 1

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