Дни недели пронумерованы следующим образом: 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.