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