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

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

program even_odd;
var a: integer;

begin
a:= 10;
while a gt; 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.