выведите

Ответ от
var i:integer;
begin
Writeln('vvedit chislo');
readln(i);
case i of
1:Writeln('ponedelnik');
2:Writeln('vtornik');
3:Writeln('sreda');
4:Writeln('chetverg');
5:Writeln('patnica');
6:Writeln('sybota');
7:Writeln('voskresenie');
else
Writeln('Chislo vne diapazona');
end;
readln;
end.