Дни недели пронумерованы следующим образом: 0-воскресенье, 1-понедельник, 2-вторик и т.д. Известно, что первое число месяца был понедельник. Определите какой день был в N дату (N меньше =31)

var a:array[0..6] of string =('voskresenije', 'ponedelnik', 'vtornik', 'sreda', 'chetverg', 'pjatnica', 'subbota'); var c:array[1..31] of string; var b,N,i:integer; begin   b:=1;   for i:=1 to 31 do begin     c[i]:=a[b];     inc(b);     if(b=7) then b:=0;   end;   repeat   write('Vvedite N: ');   readln(N);   until(N<=31);   writeln(c[N]);   readln; end.

const mas:array[1..31] of string =('Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда'); var i,n:integer; begin writeln (n); for i:=1 to 31 do if (i=n) then writeln (mas[i]); end.