Infiniti_Inter

VII/19

May 12th, 2021
433
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. program VII;//название
  3. var//объявление переменных
  4. number: integer;//номер канала
  5. begin
  6.     WriteLN('Введите номер от 1 до 3');
  7.     ReadLN(number);
  8.     if (number < 1) or (number > 3) then//Если введеное число не принадлежит интервалу от 1 до 3,
  9.         WriteLN('Некорректные данные');//то вывести ошибку
  10.     case number of//оператор выбора
  11.     1: WriteLN('1)Новости' + #10 + '2)Всегда все дома' +#10+ '3)Галилео');//#10 - это код переноса строки(Enter)
  12.     2: WriteLN('1)В мире животных' +#10+ '2)Разрушители мифов' +#10+ '3)Головоломы');
  13.     3: WriteLN('1)На ножах' +#10+ 'Ревизорро' +#10+ 'Дом на миллион');
  14.     end;
  15. end.
RAW Paste Data