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