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