Помогите пожалуйста перевести из pascal в visual basic!
const n=10;
var
a: array [1..n,1..n] of word;
i, j, h, s: word;

begin
h := 1;
for i := 1 to n do
for j := 1 to n do
begin
a[i, j] := h;
h := h+1;
end;
for i := 1 to n do
begin
for j := 1 to n do
Write(a[i,j]:4);
WriteLn;
end;
end.