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

var k:integer;beginwrite('номер модели: ');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.Пример:номер модели: 2Mazda, 2011, цена 400000