Вычислить значение логических выражений: kmod7, где k=15 kdiv3, где k=71 ((k+3)mod7)div15, где k=17

K mod 7 = 15 mod 7 = 1 (остаток деления 15 на 7)
k div 3 = 71 div 3 = 23 (результат деления нацело)
((k+3) mod 7) div 15 = ((17+3) mod 7) div 15 = (20 mod 7) div 15 = 6 div 15 = 0

Программа на паскале:
var
  number, firstDigit, lastDigit, maxDigit: longint;
 
begin
  read(number);
  lastDigit := number mod 10;
  write('Нечетные цифры числа: ');
  while number > 9 do
  begin
    if number mod 2 = 1 then write(number mod 10, ' ');
    if number mod 10 > maxDigit then maxDigit := number mod 10;
    number := number div 10;
  end;
  if number mod 2 = 1 then write(number);
  if number mod 10 > maxDigit then maxDigit := number mod 10;
  firstDigit := number;
  writeln;
  writeln('Первая цифра числа - ', firstDigit);
  writeln('Последняя цифра числа - ', lastDigit);
  writeln('Наибольшая цифра числа - ', maxDigit);
end.

Var maxd,n,m,lst: integer;
begin
{  считываем с экрана       }
   readln(n);
   maxd:=0;
{  последняя цифра }
   lst:=n mod 10;
{  цикл по количеству цифр в числе }
   while true do
   begin
       m:=n mod 10; 
       if (m mod 2 =1) then writeln('нечет. цифра = ',m);
       if maxd < m then maxd:=m;
       n:=n div 10;
       if (n=0) then
         begin
             writeln('первая цифра = ',m);
             break;
         end;
   end;
   writeln('последняя цифра = ',lst);
   writeln('максимальная цифра = ',maxd);
end.