Собрали q кг фруктов (бананов и ананасов), из них в кг бананов, сколько собрали ананасов?

Q - B = A (Вес собранных ананасов)

В Visual Basic на форме нужно создать текстовое поле Label1
со свойством WordWrap = True, то есть многострочное поле,
размер нужно задать, чтобы поместилась вся матрица.
Sub Matrix
Dim F() As Integer ' Объявляем динамический массив
Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные
m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива
ReDim F(m, m) ' Определяем размер массива
For i = 1 To m    ' Ввод данных
     For k = 1 To m
         t = "Vvedite element Matrix" & Str(i) & "," & Str(k)
         F(i, k) = InputBox (t)
     Next k
Next i
For i = 1 To m
     F(i, i) = 0 ' Обнуляем элементы главной диагонали.
Next i
For i = 1 To m
     For k = 1 To m  ' Вывод строки данных через табуляцию
         Label1.Caption = Label1.Caption & F(i, k) & Chr(9)
     Next k
     Label1.Caption = Label1.Caption & vbCrLf ' Переход на следующую строку
Next i
End Sub

Я так поняла вопрос в том, что надо объяснить работу программы. ответ будет выводиться в зависимости от введеных значений переменных. Переменная M типа boolean, т.е. это логическая переменная; которой может быть присвоенно только 2 значения, либо true, либо false, т.е. либо логическое вырожение истинное, либо ложное. Если в конце программы добавить writeln(M), тогда выведиться либо слово true, либо false. Не знаю, случайно ли, но в программе есть опечатки и в таком виде она работать не будет.
1. После program bd; ставиться точка с запятой, а не просто запятая.
2. Не car, a var
3. После объявления переменных, перед указанием их типа надо ставить двоеточие (:), а не точку с запятой (;) 4. После M необходимо поставить двоеточие (M:boolean;)
5. В операторе ввода read, нельзя ставить апостровы. Если вы хотите ввести значения, неоходимо просто через запятую их написать readln(a,b);
Ну и как я уже сказала, если вы хотите вывести результат выполнения программы, перед end. Вставьте оператор writeln(M);
Вроде всё