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

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

uses graphABC;
const
    kegl = 40;

var
    space, line: integer;

procedure M(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl );
    LineTo(cx + kegl div 2, cy);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure I(cx, cy: integer);
begin
    MoveTo(cx, cy - kegl);
    LineTo(cx, cy );
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure R(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy - kegl div 2);
    LineTo(cx, cy - kegl div 2);
end;

begin
    space := kegl div 2;
    
    SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
    
    line := space + kegl;
    M(space, line );
    I(2 * space + kegl, line );
    R(3 * space + 2 * kegl, line );
    
    line := 2 * space + 2 * kegl;
    R(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
    
    line := 3 * space + 3 * kegl;
    M(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
end.

Объяснение:

Локальная вычислительная сеть (ЛВС)- сеть для обмена информацией между ограниченным числом абонентов размещенных на небольшом пространстве, в пределах одного здания или локально размещенного предприятия.

Глобальные вычислительные сети (ГВС) объединяют разрозненные локальные сети и отличаются от локальных тем, что глобальные сети рассчитаны на неограниченное число абонентов, разбросанных по большой территории на расстояния 100 и более км и часто используют некачественные каналы связи и невысокую скорость передачи.

В глобальных сетях намного более важно не качество связи, а сам факт её существования.

Самая большая глобальная сеть - интернет.

Большинство локальных сетей имеют выход в глобальную сеть, но характер переданной информации, принципы организации обмена, режимы доступа к ресурсам внутри локальной сети, как правило, сильно отличаются от тех, что приняты в глобальной сети.

Также ГВС и ЛВС отличаются методами администрирования. Если для ЛВС как правило достаточно 1 администратора сети, то ГВС обслуживает уже целая группа таких администраторов.