Question

напишите программу.Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.

Answer 1

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.

Пример
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636