Перевести с Pascal в QBasic

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

var 
  A: array[1..10, 1..10] of integer; 
  M, N, i, j: byte; 
 
begin 
  write('M = '); 
  readln(M); 
  write('N = '); 
  readln(N); 
  for i := 1 to M do //строки 
  begin 
    for j := 1 to N do //столбцы 
    begin 
      a[i, j] := 5 * j; 
      write(a[i, j]:4) 
    end; 
    writeln 
  end 
end.

Решение задачи: «Перевести с Pascal в QBasic»

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

DIM A (1 TO 10, 1 TO 10) AS INTEGER
DIM M, N, i, j AS INTEGER
INPUT "M = ", M
INPUT "N = ", N
FOR i = 1 TO M
   FOR j = 1 TO N
      A(i, j) =  5 * j
      PRINT USING "####"; A(i, j);
   NEXT: PRINT
NEXT

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

Объявляются переменные: M, N, i, j, A(1 TO 10, 1 TO 10)
Пользователю предлагается ввести значения для переменных M и N
Используя цикл for, присваиваем ячейкам матрицы A значения 5*j
Выводим значения ячеек матрицы A с помощью цикла for и оператора print
Завершаем выполнение программы