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