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.