Написать программный код для visual basic : вычислите 1+1/2+1/3+1/4++1/n, где n задается с экрана желательно еще написать, что выносить на форму

var n,i: integer; s: real; begin write('vvedite n='); read(n); s: =1; for i: =1 to n do s: =1+1/(1+i); writeln(s); readln; end.

Type   mas=array[,] of integer; const   n=5;   m=6; var   i,j,ik,jk,k: integer;   a: mas;   b: array[0..n-1]of integer; // массив begin setlength(a,n,m); writeln('массив: '); for i: =0 to n-1 do   begin   for j: =0 to m-1 do     begin     a[i,j]: =random(20);     write(a[i,j]: 4);     end;   writeln;   end; writeln('вставка строк: '); // в массиве b признак наличия в строке 1-го четного for i: =0 to n-1 do     if a[i,0] mod 2=0 then  b[i]: =1; for i: =0 to n-1 do k: =k+b[i]; k: =n+k-1; setlength(a,k+1,m); ik: =k; for i: =n-1 downto 0 do   begin   if b[i]=1 then       begin       for jk: =0 to m-1 do  a[ik,jk]: =1;       ik: =ik-1;       end;   for jk: =0 to m-1 do a[ik,jk]: =a[i,jk];   ik: =ik-1;   end; for i: =0 to k do   begin   for j: =0 to m-1 do  write(a[i,j]: 4);   writeln;   end;   end.

Uses crt; var a,b,c,d; array [1..10] of integer; i: integer; begin clrscr; begin for i: =1 to 10 do begin a[i]: =random(50)+1; b[i]: =random(50)+1; c[i]: =random(50)+1; d[i]: =(a[i]+b[i]+c[i]) div 3; end; write('a) '); for i: =1 to 10 do write(a[i],' '); writeln; write('b) '); for i: =1 to 10 do write(b[i],' '); writeln; write('c) '); for i: =1 to 10 do write(c[i],' '); writeln; writeln('средние значения '); write('d) '); for i: =1 to 10 do write(d[i],' '); writeln; readkey; end.