Напишите программу которая по табельному номеру рабочего (целому числу от 1 до 10) выдает в качестве результата название

var prof: array[1..10] of string;

n: integer;

begin

prof[1] := \'Рядовой юстиции\';

prof[2] := \'Младший сержант юстиции\';

prof[3] := \'Сержант юстиции\';

prof[4] := \'Старший сержант юстиции\';

prof[5] := \'Старшина юстиции\';

prof[6] := \'Прапорщик юстиции\';

prof[7] := \'Старший прапорщик юстиции\';

prof[8] := \'Младший лейтенант юстиции\';

prof[9] := \'Лейтенант юстиции\';

prof[10] := \'Старший лейтенант юстиции\';

readln(n);

writeln(prof[n]);

end.