Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня

var day: byte;
begin
clrscr;
writeln ('Введите номер дня недели');
readln (day);
case day of
 1: writeln('Понедельник');
 2: writeln('Вторник');
 3: writeln('Среда'); 
 4: writeln('Четверг');
 5: writeln('Пятница');
 6: writeln('Суббота');
 7: writeln('Воскресенье');
end;
readln;
end.

var age: byte;
begin
  WriteLn('Сколько Вам лет?')
  ReadLn(age);
  if ((age mod 10 > 4) or (age mod 10 = 0)) or ((age >= 11) and (age <= 14))
    then WriteLn('Вам ', age, ' лет')
    else if age mod 10 = 1 then WriteLn('Вам ', age, ' год') else WriteLn('Вам ', age, ' года');
  ReadLn
end.

var age: byte;
begin
  WriteLn('Сколько вам лет?');
  ReadLn(age);
  case age mod 10 of
   1: begin if age = 11 then WriteLn('Вам ', age, ' лет') else WriteLn('Вам ', age, ' год') end;
   2,3,4: begin if (age > 11) and (age <= 14) then WriteLn('Вам  ', age, ' лет') else WriteLn('Вам ', age, ' года') end;
   5,6,7,8,9,0: WriteLn('Вам ', age, ' лет');
  end;
  ReadLn
end.

 var y : integer;
    s : string;
  begin
 Write('Сколько Вам лет? '); Readln(y);
  case y of
           11, 12, 13, 14: s:='лет';
 else case y mod 10 of
                     1: s:='год';
                     2, 3, 4: s:='года';
 else s:='лет'; end;
 end;
 Writeln('Вам', y, ' ', s);
 end.

  case y mod 100 of
  11..14: s:='лет';
  else
    case y mod 10 of
    1:    s:='год';
    2..4: s:='года';
    else  s:='лет';
    end;
  end;

Var X, M:integer; S: string;
begin
 repeat
  WriteLn (' Ведите ваш возраст : '); Readln (X);
  M:= X mod 10;
 If  (X<>11) and (X<>12) and (X<>13) and (X<>14) then 
     case M of
       0, 5..9: Writeln('Вам ', X,' лет');
       1: Writeln ('Вам ', X,' год');
       2..4: Writeln( 'Вам ', X,' года'); 
       else writeln('вали спать, щенок');
     end
  else Writeln ('Вам ', X,' лет');
  until false;
end.

if y>=21 then ...
else WriteLn('До свидания.');