Сделать программу которая по номеру дня недели - целому числу от 1 до 7 выдает в качестве результата количество уроков - Turbo Pascal

Формулировка задачи:

Сделать программу которая по номеру дня недели - целому числу от 1 до 7 выдает в качестве результата количество уроков в классе в соответствующий день. 1 день-4 урока 2 день-2 урока 3 день-4 урока 4 день-4 урока 5 день-2 урока 6 день-1 урок 7 день-1 урок Помогите пожалуйста.

Решение задачи: «Сделать программу которая по номеру дня недели - целому числу от 1 до 7 выдает в качестве результата количество уроков»

Листинг программы

Case x of
  1,3,4: Writeln('4 ГЇГ*Г°Г»');
  2,5: writeln('2 ГЇГ*Г°Г»');
  6,7: writeln('Г*ГҐГІ ГЇГ*Г°');
end;

Объяснение кода листинга программы

В данном коде используется конструкция Case, которая выполняет определенные действия в зависимости от значения переменной x. В первом блоке Case (1,3,4): Writeln('4 ГЇГ*Г°Г»') происходит следующее:

Переменная x принимает значение 1, 3 или 4.
В зависимости от этого значения, программа выводит на экран строку '4 ГЇГГ°Г»', которая представляет собой количество уроков. Во втором блоке Case (2,5): writeln('2 ГЇГГ°Г»') происходит следующее:
Переменная x принимает значение 2 или 5.
В зависимости от этого значения, программа выводит на экран строку '2 ГЇГГ°Г»', которая также представляет собой количество уроков. В третьем блоке Case (6,7): writeln('ГГҐГІ ГЇГ*Г°') происходит следующее:
Переменная x принимает значение 6 или 7.
В зависимости от этого значения, программа выводит на экран строку 'ГГҐГІ ГЇГГ°', которая представляет собой количество уроков. Таким образом, данный код позволяет определить количество уроков в зависимости от номера дня недели, представленного переменной x.