Написать программку которая по номеру дня недели выдаст заглавие денька и

А субботы занимаетесь?

да

Какая версия Паскаля?

ой а этого я не знаю

PascalABC вот это наверняка .я не в курсе

Пронумеруем деньки недели числами от 0 до 6 (0-Вс, 1-Пн, .. 6-Сб).

var
  dow:0..6;
begin
  Write('Введите номер дня недели (0-Вс, 6-сб): ');
  Read(dow);
  case dow of
  0:Writeln('Воскресенье, выходной');
  1:Writeln('Пн, 6 уроков');
  2:Writeln('Вторник, 6 уроков');
  3:Writeln('Среда, 7 уроков');
  4:Writeln('Четверг, 6 уроков');
  5:Writeln('Пятница, 6 уроков');
  6:Writeln('Суббота, 6 уроков');
  else Writeln('Введено неправильное значение')
  end
end.

Тестовое решение:
Введите номер денька недели (0-Вс, 6-сб): 5
Пятница, 6 уроков

Program al;
Var
  x: integer;
BEGIN
Repeat
Write('VVedite cislo ot 1 7: ');
 Readln(x);
until x in [1..7];
Case x of
  1: Writeln('Ponidelnik-6urokov');
  2: writeln('Vtornik-6erokov');
  3: writeln('Sreda-7urokov');
  4: writeln('Cetverg-6urokov');
  5: writeln('Piatnita-6urokov');
  6: writeln('Subbota-6urokov');
  7: writeln('Voskresenie-vihadnoy');
end;
Readln
END.