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

Мария

Varn:byte;beginwrite('Vvedite nomer dnya nedeli: ');readln(n);case n of1: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.