Помогите прошу Составить программку,дозволяющую получить словесное названия оценок 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:= 5; 6: s:= шесть; 7: s:= семь; 8: s:= восемь; 9: s:= девять; 10: s:= десять; else: s:= ошибка; end; writeln( s ); end. Оператор case...of дозволяет выбрать один из нескольких возможных вариантов. В нашем случае, в "case...of" перечислены значения переменной "n" от 1 до 10 и указаны деяния, которые обязаны выполняться, если переменная "n" одинакова данному значению.