Прошу , язык - qbasic желательно быстрее решить расчётную часть,

Метод prompt() предназначен для вывода диалогового окна с сообщением, текстовым полем для ввода данных и кнопками «ОК» и «Отмена». Это окно предназначено для запроса данных, которые пользователю нужно ввести в текстовое поле.В переменную result возвращается значение введённое пользователем или null. Если пользователь не ввёл данные (поле ввода пустое) и нажал на «ОК», то в result будет находиться пустая строка.

Например, запросим имя пользователя при входе его на сайт с prompt, а затем выведем его в элемент #welcome:

хотела

//pascalabc.net 3.1.0.1200 uses system; var       title: array[2..5]of string : = ('неудовлетворительно', 'удовлетворительно', 'хорошо', 'отлично'); begin       writeln('введите оценки');       var marks : = new dictionary< integer, integer> ();             repeat               var n : = readinteger();               if (n > 5) or (n < 2) then continue;                             if marks.containskey(n) then                       marks[n] += 1               else marks.add(n, 1);       until marks.values.sum > = 10;             for var i : = 2 to 5 do               writeln(title[i], ': ', marks[i]); end.