Даны три действительных числа.Возвести в куб те из них, значения которых положительные

Question

Даны три действительных числа.Возвести в куб те из них, значения которых положительные

Answer 1

Ответ:

• begin
• var a := ReadArrReal(3);
• a.ForEach(x->if x>0 then Print(x*x*x))
• end.

Пример работы:

---