Нужно придумать в паскале abc свою ЗАДАЧУ математическую с помощью функций abc (x) ,sqr…

Составить программу, которая заполняет одномерный массив случайными числами из интервала [-50:50] и выводит на экран только те элементы массива, квадратный корень из модуля которых больше пятиuses crt; const n=5; var a: array[1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100) -50; writeln (a[i]); end; writeln; for i: =1 to n doif (sqrt (abs (a[i]) >5) then writeln (a[i]); end.