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

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.