Напишите программу,которая анализирует человека по возрасту и относит к одной из пяти групп: дошкольник,школьник,студент,работник,пенсионер.возраст вводится с клавиатуры.используйте оператор case.

var

 n:byte;

begin

  write ('Vozrast: ');

  readln(n);

  case n of

   1..6:writeln ('Дошкольник');

   7..18:writeln ('Школьник');

   19..24:writeln ('Студент');

   25..55:writeln ('Работник');

   56..110:writeln ('Пенсионер'); 

   else writeln ('Не факт,что доживет');

  end;

  readln;

end.