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

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.

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.