Ответ:

pascal

Объяснение:

var i: integer;

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

begin

 for i := 1 to 10 do

 begin

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

   Write(a[i], ' ');

 end;

end.