VII/19

program VII;//название
var//объявление переменных
number: integer;//номер канала
begin
    WriteLN('Введите номер от 1 до 3');
    ReadLN(number);
    if (number < 1) or (number > 3) then//Если введеное число не принадлежит интервалу от 1 до 3,
        WriteLN('Некорректные данные');//то вывести ошибку
    case number of//оператор выбора
    1: WriteLN('1)Новости' + #10 + '2)Всегда все дома' +#10+ '3)Галилео');//#10 - это код переноса строки(Enter)
    2: WriteLN('1)В мире животных' +#10+ '2)Разрушители мифов' +#10+ '3)Головоломы');
    3: WriteLN('1)На ножах' +#10+ 'Ревизорро' +#10+ 'Дом на миллион');
    end;
end.