Решите задачку в Pascal,через оператор case,даю 50 баллов.

Var a,b,x,z,d1,d2:real; k:integer;
begin
writeln('Введите границы промежутка для получения случайных значений:');
readln(d1,d2);
a:=(d2-d1)*random+d1;
b:=(d2-d1)*random+d1;
x:=(d2-d1)*random+d1;
writeln('a = ',a:5:2,' b = ',b:5:2,' x = ',x:5:2);
z:=ln(x*x+a*b);
k:=trunc(z) mod 7;
writeln('k = ',k);
case k of
 0: writeln('воскресенье');
 1: writeln('пн');
 2: writeln('вторник');
 3: writeln('среда');
 4: writeln('четверг');
 5: writeln('пятница');
 6: writeln('суббота');
end;
end.

Пример:
Введите границы промежутка для получения случайных значений:
2.1 9.4
a = 5.66 b = 4.93 x = 4.74
k = 3
среда