Вывести квадраты первых десяти натуральных чисел.Сделайте полный код на паскале!не копируйте другие коды

--- PascalABC.NET 3.6.2 ---

begin

 var N := ReadInteger();

 SeqGen(N, p -> p ** 2).Println;

end.

Леонард Эйлер (1707-1783) — математик, механик, физик и астроном. По происхождению швейцарец. Идеальный математик 18 века - так часто называют Эйлера. Он был одним из самых великих математиков всех времен. Он разработал основы современной теории чисел и алгебры, топологии, исчисления вероятности и комбинаторики, интегрального исчисления, теории дифференциального исчисления и дифференциальной геометрии, вариационного исчисления, открыл связь между тригонометрическими и экспоненциальными функциями. Леонард Эйлер разработал учения гидродинамики и аэрогидродинамики, создал основы теории гироскопа. Он был гениальным естествоиспытателем, замечательным учителем и наставником.

Program Begenjov1997;

const

 n = 30; {Количество элементов массива}

 m = 10000; {Максимально возможное значение элемента}

var

 a:array[1..n] of integer;

 i, sum: integer;

 s:string;

begin

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

{Ищем максимальный и минимальный элементы}

 sum:=0;

 for i:=1 to n do

   if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];

{Заменяем эти элементы найденной суммой}

 for i:=1 to n do

   if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;

{Вывод}

 writeln;

 for i:=1 to n do writeln(a[i]);

end.