Помогите прошу Составить программу,позволяющую получить словесное наименования оценок 1-10 с помощью оператора варианта

var n: integer; s: string;begin write(\'Введите оценку 1..10 = \'); readln( n ); case n of 1: s:= \'один\'; 2: s:= \'два\'; 3: s:= \'три\'; 4: s:= \'четыре\'; 5: s:= \'пять\'; 6: s:= \'шесть\'; 7: s:= \'семь\'; 8: s:= \'восемь\'; 9: s:= \'девять\'; 10: s:= \'десять\'; else: s:= \'ошибка\'; end; writeln( s );end.Оператор case...of позволяет выбрать один из нескольких возможных вариантов.В нашем случае, в \"case...of\" перечислены значения переменной \"n\" от 1 до 10 и указаны действия, которые должны выполняться, если переменная \"n\" равна данному значению.