Найти остаток от деления целой части значения функции y = ln(x²+ab) на 7 и, в зависимости от его величины, напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. Значения переменных а, b, x получить случайным ...

var y,a,b,x:integer; begin   a:=-5+random(16); b:=1+random(20); x:=1+random(3);   y:=ln(sqr(x)+a*b);   case y mod 7 of     0:writeln('<Сюда пишешь день недели>');     1:writeln('<Сюда пишешь день недели>');     2:writeln('<Сюда пишешь день недели>');     3:writeln('<Сюда пишешь день недели>');     4:writeln('<Сюда пишешь день недели>');     5:writeln('<Сюда пишешь день недели>');     6:writeln('<Сюда пишешь день недели>');   end;   readln end.