var day:string; a:integer; begin case a of 1,2,3,4,5: day:='Будни' ; 6: day:='Суббота!'; 7: day:='Вск!'; end; end.