Найти остаток от деления целой части значения функции z=in(x^2+ab) на 7 и, в зависимости от его величины , напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. решить в паскаль

Var a,b,x: real; z: integer; begin   write('x = '); readln(x);   write('a = '); readln(a);   write('b = '); readln(b);   z : = trunc(x*x+a*b);   writeln('[z] = ', z);   writeln('[z] mod 7 = ', z mod 7);   writeln(system.globalization     .cultureinfo.currentculture     .datetimeformat.daynames[(z+1) mod 7]);     // если нулевой день это воскресенье, то не (z+1) а z mod 7 end.

Var  a: array[1..100] of integer;     i, n: integer;     p: integer;       begin    randomize;     writeln('massiv: ');   readln(n);     for i : = 1 to n do      a[i] : = random(10) - 5;     writeln('исходный массив: ');   for i : = 1 to n do    write(a[i], ' ');     p: =1;     for i : = 1 to n do        if (a[i]> 0) and (i mod 2=0) then p: =p*a[i];         writeln('произведение   =',p);   readln.     end.

Разбери по примеру например число в двоичной системе 1010 1010= 0*2^0 + 1*2^1 + 0*2^2 +1*2^3=0+2+0+8=10 число в двоичной сс ты нумеруешь с конца( 0 под номером 0, 1 под номером 1, следующий 0 под номером 2, следующая 1 под номером 3). и так начинаешь умножать , самое последнее число на 2 в нулевой степени , потому что 0 под номером один , а умножаешь на два , потому что двоичная система счисления , потом 1 умножаешь на 2 в первой степени , потому что один находится под номером 1, потому следующий 0 умножаешь на 2 во второй степени , потому что этот ноль находится под номером два , и следующую единицу умножаешь на 2 в третьей степени , потому что первая единица слева под номером три надеюсь понятно : )