Pascal. Оператор выбора.

Есть данные об автомобилях четырех моделей. Ввести номер модели и получить характеристики: год выпуска и цену.

Var k:integer;

begin

write ('номер модели: ') ;

readln (k) ;

case k of

1: writeln ('Lada, 2010, цена 300000') ;

2: writeln ('Mazda, 2011, цена 400000') ;

3: writeln ('Toyota, 2015, цена 2300000') ;

4: writeln ('Kia, 2016, цена 5300000') ;

else writeln ('Ошибка ввода') ;

end;

end.

Пример:

номер модели: 2

Mazda, 2011, цена 400000