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

На паскале
var a,b:byte;
begin
 readln(a);
 case a of
    1,5: b:=5;
    2,4: b:=6;
    3: b:=7; end;
 writeln(b);
end.