Нужно написать программу на pascal.Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.

PascalABC.NET 3.4begin  var n := ReadInteger('n=');  var a := ReadArrReal(n);  var s := a.Select(p -> p*p).Sum;  Writeln(s)end.