Program Frank;const n=20;TYPE mas=array[1..n] of integer;var a:mas;i:integer;beginfor i:=1 to n do begina[i]:=sqr(i);write(' ',a[i]);end;end.