Составить программу в паскале,позволяющую получить словесное описание школьных отметок: 1-плохо 2-не удовлетворительно 3-удовлетворительно 4-хорошо 5-отлично

var mark: integer;

begin  write('Оценка: ');  readln(mark);  case mark of    1: writeln ('Плохо');    2: writeln ('Не удовлетворительно');    3: writeln ('Удовлетворительно');    4: writeln ('Хорошо');    5: writeln ('Отлично!');  end;  readln;end.