Составьте программу на Паскале вывести на экран элементы одномерного массивного формированного из Квадратов чисел натурального ряда 1 ,2,3,...10,.. .

var i, t:integer;l:array[1..100000000] of longint;beginwriteln ('Введите до какого числа вычислять квадрат');readln (t);For i:=1 to t dobeginl[i]:=sqr(i);write (l[i], ' ');end;end.