Achtung! Перевод из паскаля в бейсик уже 3 часа сижу - QBasic

Формулировка задачи:

Люди добрые, помогите перевести сие творение ку бейсик.

const
  n=5;
var
  a,b:array[1..n]of integer;
  c:array[1..2*n]of integer;
  d:integer;
begin
  for d:=1 to n do
    begin
      a[d]:=random(100);
      write(a[d]:3);
    end;
  writeln;
  for d:=1 to n do
    begin
      b[d]:=random(100);
      write(b[d]:3);
    end;
  writeln;
  for d:=1 to n do
    begin
      c[2*d-1]:=a[d];
      c[2*d]:=b[d];
    end;
  for d:=1 to 2*n do
    write(c[d]:3);
  readln;
end.

Решение задачи: «Achtung! Перевод из паскаля в бейсик уже 3 часа сижу»

Листинг программы

CLS
RANDOMIZE TIMER
n = 5: d = 0
DIM a(1 TO n) AS INTEGER
DIM b(1 TO n) AS INTEGER
DIM c(1 TO 2 * n) AS INTEGER
FOR d = 1 TO n
   a(d) = INT(RND * 100)
   PRINT USING "####"; a(d);
NEXT d: PRINT
FOR d = 1 TO n
   b(d) = INT(RND * 100)
   PRINT USING "####"; b(d);
NEXT d: PRINT
FOR d = 1 TO n
   c(2 * d - 1) = a(d)
   c(2 * d) = b(d)
NEXT d
FOR d = 1 TO 2 * n
   PRINT USING "####"; c(d);
NEXT d
END

Объяснение кода листинга программы

В этом коде происходит следующее:

Объявляются переменные:
- n (число),
- d (число),
- a (массив целых чисел),
- b (массив целых чисел),
- c (массив целых чисел).
Заполняются массивы a и b случайными числами от 0 до 99.
Заполняется массив c, где каждый элемент - это сумма соответствующих элементов из массивов a и b.
Выводятся все элементы массива c.