В 8 классе в понедельник и пятницу - 5 уроков, во вторник и четверг-6 уроков, а в среду-7 уроков. Введите номер дня недели. Выведите количество уроков в этот день.

var a : integer; / / a - переменная, отвечающая за номер дня недели.

begin

write ('Введите номер дня недели: ');

readln (a);

if (a = 1) or (a = 5) then writeln ('5'); / / Понедельник и пятница.

if (a = 2) or (a = 4) then writeln ('6'); / / Вторник и четверг.

if a = 3 then writeln ('7'); / / Среда.

end.