Заполните одномерный массив из n элементив следующим образом: номера элеметов массива 1 2 3 4. значение элементов массива 1 4 9 16. c++

Вроде как-то так:
Первая.

var a:array [1..10] of integer; i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a:=random(20)-10;
writeln(a);
end;
writeln;
for i:=1 to 10 do
writeln(sqr(a));
readln;
end.