Запишите на языке Паскаль программу, которая по номеру дня недели будет выводить его название.

Выход из программы - ввод числа 0.

program even_odd;

var a: integer;

begin

a: = 10;

while a > 0 do

begin

write ('Введите день недели: ');

read (a);

case a of

0: write ('Работа с программой окончена');

1: write ('Понедельник');

2: write ('Вторник');

3: write ('Среда');

4: write ('Четверг');

5: write ('Пятница');

6: write ('Суббота');

7: write ('Воскресенье');

else write ('Неделя имеет только семь дней');

end;

writeln ();

writeln ()

end

end.