Код на Паскале, выводит значения в виде "(x;y)" с интервалом в 1 единицу для "x" (для "y" наследственно). Прикрепил вывод компилятора с кодом, код в ответе и код в текстовом документе (будьте внимательны с отступами):
var a,b: array [1..100] of integer;
i: integer;
begin
for i:= 1 to 21 do
begin
a[i]:= i-11;
end;
for i:= 1 to 21 do
begin
b[i]:= 3*(sqr(a[i]));
end;
for i:= 1 to 21 do
begin
writeln('(',a[i],';',b[i],')');
end;
end.