Ввести одномерный массив из 13 элементов. Определить сумму элементов, которые при умножении на 4 дают значение большее чем при возведении в квадрат. Напишите программу, пожалуйста.

Program n1;const n=13;var a: array [1..n] of integer; i,sum:integer; begin randomize;sum:=0;write('исходный массив: ');for i:=1 to n dobegina[i]:=random(50);write(a[i],' ');if a[i]*4>a[i]*a[i] then sum:=sum+a[i];end;writeln;write('искомая сумма: ',sum);end.

const  CSize = 13;var  m: array[1..CSize] of integer;  sum: integer;begin  sum := 0;  for var i := 1 to CSize do   begin    read(m[i]);    if (m[i] * 4) > (sqr(m[i])) then sum := sum + m[i];  end;  write(sum);end.