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