нужно составить программу для решения :

известно, что 31 января 2011 года было понедельником. известно, что 31 января 2011 года приходится на понедельник. какие значения должны быть присвоены переменной у в алгоритме, определяющем день недели для любого числа (chislo) января 2011 года?
chislo : = chislo mod 7
если chislo=3 то y: = "
если chislo=4 то y: = "
если chislo=5 то y: = "
если chislo=6 то y: = "
если chislo=0 то y: = "
если chislo=1 то y: = "
если chislo=2 то y: = "
​

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.