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

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