Решите первое и второе

1.

var mark:integer;

begin

readln(mark);

case mark of

1,2,3: write('Плохо');

4,5,6: write('Удовлетворительно');

7,8,9: write('Хорошо');

10,11,12: write('Отлично');

else write('Такой отметки не существует');

end;

end.

2.

var age:integer;

begin

readln(age);

case age of

1..13: write('Ребенок');

14..17: write('Подросток');

18..59: write('Взрослый');

else write('Пенсионер');

end;

end.