Написать программу, иcпользуя case

[Станислава13]

Помогите пожалуйста!Написать программу, которая по номеру машины выводит фамилию студента, сидящего за ней.

[ROMA2PVT]

Uses crt;
Var
num:integer;
begin
Clrscr;
write('Введите номер автомобиля: ');
readln(num);
case num of
123:writeln('Kiril');
456:writeln('Ivan');
////////////////////
////////////////////
{И так далее}
end;
end.

Ну и чё так трудно чтоли?