Program tablou; 
var q:array[1..10] of integer;
    i:integer;
begin
writeln('Дайте массив Q - 10 чисел ');
for i:=1 to 10 do read(q[i]);
for i:=1 to 10 do write(sqr(i)*2);
end.