Вот это наверно) Если менять числа, значение площади меняется. Только нужно подбирать специальные числа, чтоб под квадратным корнем не было отрицательного числа)
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
Задача 1 Программа проверена для первых четырех элементов (=16)