Var A: arrey[1..19,1..2] of integer;
Var x, i: integer;
Begin
For i:=1 to 19 do begin
A[i,1]:=i; A[i,2]:=i*i;
Writeln (A[i,1]:4, A[i,2]:4)
End
End.
---------------
Или если без массива, то так:
Const n=12;
Var x,y: integer;
Begin
For x:=1 to n do begin
y:=x*x;
Writeln (x:4,y:4)
End
End.