Var
n:byte;
begin
write('Vvedite nomer dnya nedeli: ');
readln(n);
case n of
1:writeln('Ponedelnik');
2:writeln('Vtornik');
3:writeln('Sreda');
4:writeln('Chetverg');
5:writeln('Pyatnica');
6:writeln('Subbota');
7:writeln('Voskresene');
else writeln('Net takogo dny');
end;

write('Dly vihoda nagmite Enter');
readln;
end.