program Num Day To Text var d: real: N: string; begin Mwrite(); readln(d); case(d) of 1: N := 'Понедельник; 2; № := 'Вторник'; 3 / N :="Cpeaa"; else write(z): end.

Программа, которую ты написал, позволяет преобразовать номер дня недели в текстовое представление на русском языке. В твоем случае, есть несколько исправлений, которые нужно внести для корректной работы программы.

Вот исправленный вариант программы:

var
  d: integer; // заменил на integer, так как номер дня недели - это целое число
  N: string;

begin
  writeln('Введите номер дня недели:');
  readln(d);

  case d of
    1: N := 'Понедельник';
    2: N := 'Вторник';
    3: N := 'Среда';
    else N := 'Ошибка';
  end;

  writeln(N);
end.

Теперь программа должна корректно отображать текстовое представление дня недели по введенному номеру. Не забудь также исправить опечатки, которые были в изначальном коде. Удачи в изучении программирования!