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

наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.

наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.

переведем эти числа в десятичную систему счисления:

1000₅= 5³ = 125

4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624

количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500

ответ. 500. 

Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.