Составьте алгоритм, который по кол-ву лет школьника определяет, в каком он учится классе. (pascal)

begin

 var pupil := Dict(

 kv(7, 1), kv(8, 2), kv(9, 3), kv(10, 4), kv(11, 5),

 kv(12, 6), kv(13, 7), kv(14, 8), kv(15, 9), kv(16, 10));

 var age := ReadlnInteger('age =');

 Print(pupil[age])

end.