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

var
a: integer;
begin
writeln(Введите день недели:); readln(a);
case a of
1 : writeln(Понедельник);
2 : writeln(Вторник);
3 : writeln(Среда);
4 : writeln(Четверг);
5 : writeln(Пятница);
6 : writeln(Суббота);
7 : writeln(Воскресенье);
else writeln(В неделе только 7 дней.);
end;
end.
Оцени ответ