Предложите пользователю ввести 10 оценок, полученных группой студентов на экзамене. Проверьте, что оценки находятся в интервале от 2 до 5. Выведите итого подобного вида: «Отлично: 2|Хорошо: 5|Удовлетворительно: 3|Неудовлетворительно: -|, вместо символа «|» - переход на новую строку.

//PascalABC.Net 3.1.0.1200uses 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.