Найти остаток от деления целой части значения функции 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;  readlnend.