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