Чему будут равны значения целых переменных C и D после выполнения фрагмента программы?

C:=10; A:=46;
B:=7; D:=A;
WHILE D>=B DO
BEGIN
C:=C-1; D:=D-2*B;
END;

Пытаюсь сформулировать нормально. 
Есть некая прога, обрабатывающая данные книги Экселя (2-3 листа книги). Исходные данные для работы вводятся через форму1 (с этим вроде почти разобрался). Результаты работы проги, а это несколько таблиц, графиов и итоги, - нужно представить в удобоваримом виде. Т.е.,как я себе представляю, что-то типа многостраничной "формы", где на одном листе - общий итог, на другом первый график, на следующем таблица, содержащая выборку из 1-го листа раб.книги (таблицы Экселя) и др. 
Да, можно всю эту инфу оставить в том же Экселе, и смотреть результаты в Экселе. НО... 
1. Не наглядно, 
2. Много лишних данных... 

Для ввода данных в программу инструментов много (через форму1 пользователя), а для вывода данных - как? В текстбокс или в файл что ли и всё?! Какой-то однонаправленный интерфейс получается! 
Ну, я не знаю, как еще проще объяснить, что мне нужно.... 
Или в ВБА этого сделать нельзя и нужно на другом языке писать? 

Задача а
program a;var   i:integer;  a:array[-5..11] of integer; begin  randomize;  for i:=1 to 11 do begin    a[i]:=random(10)-5;    if a[i] mod 5 = 0 then a[i]:=5 else a[i]:=a[i]*5;    write (a[i],);    end;end.Задача б
program b;var   i:integer;  a:array[1..12] of integer; begin  randomize;  for i:=1 to 12 do begin    a[i]:=random(20);    if a[i] mod 2 = 1 then write (a[i],);    end;end.

Скорость чтения жесткого диска  !?                                                                     Ну это спорный вопрос,зависит от модели и типа жесткого диска,приведу в пример жесткий диск компьютера,тип "HDD".....Средняя скорость HDD от 100 до 150 Мбайтс.                                               

Ага конечно написано дает 20 баллов а на самом деле даёшь 10 Так нечестно Если бы ты реально так 20