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

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.