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

// 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

Var mas:array[1..3] of integer;
begin
for var i := 1 to 3 do
begin
read(mas[i]);
if mas[i] >= 0 then mas[i] := sqr(mas[i])
else mas[i] := sqr(mas[i]) * sqr(mas[i]);
end.