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

Вопрос школьника по предмету Информатика

задано действительное число 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.