Создать массив, каждый элемент которого рассчитывается по формуле: I2*100, где I - индекс элемента массива. Вывести полученный массив на экран, расположив каждый элемент в отдельной строке.

uses crt;

var a:array [1 ... 100] of integer;

i, n:integer;

begin

clrscr;

write ('Количество элемнтов массива: '); read (n);

writeln ('Массив:');

for i:=1 to n do

begin

a[i]:=sqr (i) * 100;

writeln (a[i]);

end;

end.