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

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

program even_odd;var a: integer;

begina:= 10;while a > 0 dobeginwrite (\'Введите день недели: \');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()endend.