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

var day:integer;

begin

   readln(day);

   case day of

       1..5: writeln('Рабочий день');

       6: writeln('Суббота');

       7: writeln('Воскресенье');

   end;

end.

fpc 3.0.0

//Я мог ошибаться по поводу понятия "десятидневка"
//Поэтому интерпретировал как "любые 10 дней"

#include <iostream>
#include <stdlib.h>
#include <ctime>
using namespace std;
int main() {
    srand(time(0));
int ar[30];
int max=0;
int ar2[21];
int is,iv;
cout<<"Mounth \n";
for(int i=0;i<30;i++){
            ar[i]=rand()%100+1;
            cout<<ar[i]<<" ";
            }
    for(int i=0;i<21;i++){            ar2[i]=ar[i]+ar[i+1]+ar[i+2]+ar[i+3]+ar[i+4]+ar[i+5]+ar[i+6]+ar[i+7]+ar[i+8]+ar[i+9]; //не влезло
            if(max<ar2[i]){
                          max=ar2[i];
                          is=i+1;
                          iv=i+10;
                          }
                          } 
           cout<<"\n"<<is<<"-"<<iv;
    cin.get();
    cin.get();
return 0;
}

//PascalABC.Net 3.0, сборка 1064
var
  n:integer;
  i,d:byte;
  b:array[0..9] of boolean;
  fail:boolean;
begin
  Write('Введите четырехзначное натуральное число: ');
  Read(n);
  for i:=0 to 9 do b[i]:=False;
  while (n>0) and (not fail) do begin
    d:=n mod 10;
    if b[d] then fail:=True else b[d]:=True;
    n:=n div 10
  end;
  if fail then Writeln('В числе есть одинаковые цифры')
  else Writeln('В числе нет одинаковых цифр')
end.

Тестовое решение:
Введите четырехзначное натуральное число: 1263
В числе нет одинаковых цифр

Введите четырехзначное натуральное число: 1315
В числе есть одинаковые цифры