Написать программу: по заданному порядковому номеру дня недели напечатать его название и указать рабочий это день или не рабочий

Var   a: array [1..7] of system.tuple< boolean, string> ;   i: byte;     begin   a[1] : = new system.tuple< boolean,string> (true, 'понедельник');   a[2] : = new system.tuple< boolean,string> (true, 'вторник');   a[3] : = new system.tuple< boolean,string> (true, 'среда');   a[4] : = new system.tuple< boolean,string> (true, 'четверг');   a[5] : = new system.tuple< boolean,string> (true, 'пятница');   a[6] : = new system.tuple< boolean,string> (false, 'суббота');   a[7] : = new system.tuple< boolean,string> (false, 'воскресение');   readln(i);   writeln((i in [1..7] ?   string.format('day #{0} is {1}. it is {2}.', i, a[i].item2,             (a[i].item1 ? 'working day' : 'weekend')) : 'there aren`t this day.')); end.

Var month: integer; begin readln(month); if ((month > 0 ) and ( month < 13)) then case month of 1 : writeln ('january (31 days) '); 2 : writeln ('fabruary (28 days) '); 3 : writeln ('march (31 days)'); 4 : writeln ('april (31 days) '); 5 : writeln ('fabruary (28 days)'); 6 : writeln ('march (31 days)'); 7 : writeln ('january (31 days) '); 8 : writeln ('fabruary (28 days) '); 9 : writeln ('march (31 days)'); 10 : writeln ('january (31 days) '); 11 : writeln ('fabruary (28 days) '); 12: writeln ('march (31 days)'); end else writeln('error'); readln; end.

Program gt; var n,i,max,min: integer; a: array[1..100]of integer; begin read(n); {n-кол-во учащихся} for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =1 to n do begin if(a[i]> max)then max: =a[i]; if(a[i]< min)then min: =a[i]; end; writeln(max,' ',min,'-росты') max: =max-min; writeln(max); end. 2) program gt; var n,i,a,k: integer; begin read(n); k: =0; for i: =1 to n do begin read(a); if(a< 1958)then k: =k+1; end; writeln(k); end. 3) program gt; var i,q,a,l: integer; begin for i: =8 to 20 do begin read(a); if(a< 0)then begin q: =q+1; if(q=1)then l: =i; end; end; writeln(l); end.

Var  a: array of array of integer; jmin: array of integer; n,m,i,j,k,min: integer; begin randomize; write('n = '); readln(n); write('m = '); readln(m); writeln('исходный массив: '); setlength(a,n); for i: =0 to n-1 do setlength(a[i],m); setlength(jmin,m); for i: =0 to n-1 do   begin   for j: =0 to m-1 do   begin     a[i,j]: =random(11);     write(a[i,j]: 4);   end;   writeln;   end; min: =a[0,0]; jmin[0]: =1; for i: =0 to n-1 do   for j: =0 to m-1 do   if a[i,j]< min then      begin      min: =a[i,j];     for k: =0 to m-1 do jmin[k]: =0;     jmin[j]: =1;     end     else if a[i,j]=min then jmin[j]: =1; writeln('min = ',min); for k: =0 to m-1 do write(jmin[k],' '); writeln; for k: =m-1 downto 0 do   if jmin[k]=1 then   begin   for i: =0 to n-1 do setlength(a[i],length(a[i])+1);   for i: =0 to n-1 do     for j: =length(a[i])-1 downto k+2 do a[i,j]: =a[i,j-1];   for i: =0 to n-1 do a[i,k+1]: =0;     end; for i: =0 to n-1 do   begin   for j: =0 to length(a[i])-1 do write(a[i,j]: 4);   writeln;   end; end. пример: n = 4 m = 5 исходный массив:     7   3   7   6   0     5   0   8   0   9     2   1   9   6   10     2   0   3   6   0 min = 0 0 1 0 1 1      7   3   0   7   6   0   0   0     5   0   0   8   0   0   9   0     2   1   0   9   6   0   10   0     2   0   0   3   6   0   0   0