Оператор выбора CASE.

[Pchelka]

Оператор выбора CASE.

Здравствуйте помогите написать программу через оператора выбора case.

Написать программу, которая по номеру дня недели ( целому числу от 1 до 7 ) выдаст в качестве результата количество уроков в вашем классе в этот день.
Вот у меня написано, но не через это оператор.Помогите пожалуйста

uses crt;
const n=7;
a:array[1..n] of byte=(7,6,7,6,5,5,0);
var w:byte;
begin
clrscr;
repeat
writeln('Введите номер дня недели 1-7 w=');
readln(w);
until w in [1..7];
writeln('Количество уроков=',a[w]);
readln
end.

 

[Vladimir_S]

Помогите пожалуйста

Пожалуйста:

uses crt;
var
 w,a:byte;
begin
 repeat
  clrscr;
  write('Введите номер дня недели (1-7): ');
  readln(w);
 until w in [1..7];
 Case w of
  1: a:=7;
  2: a:=6;
  3: a:=7;
  4: a:=6;
  5: a:=5;
  6: a:=5;
  7: a:=0;
 end; {Case}
 writeln('Количество уроков = ',a);
 readln
end.