Дано натуральное число n. определить максимальную цифру, используемую в записи числа и подсчитать, сколько раз она использована в записи числа n. паскаль

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

procedure Fib(n:integer; var r:sequence of integer);
begin
  if n<1 then exit; // нечего глупости задавать
  case n of
  1: r:=Seq(1);
  2: r:=Seq(1,1);
  else begin
    r:=Seq(1,1);
    var (p1,p2):=(1,1);
    var p:integer;
    loop n-2 do begin
      p:=p1+p2;
      r:=r+Seq(p);
      (p1,p2):=(p2,p)
      end
    end
  end
end;
   
begin
  var s:sequence of integer;
  var n:=ReadInteger('n=');
  Fib(n,s);
  s.Println
end.

Пример
n= 8
1 1 2 3 5 8 13 21

Вот полноценный модуль на C:

#ifndef _MATH_MODULE_H_
#define _MATH_MODULE_H_

#define PI (3.14159265359f)

// Площади круга по известному радиусу
float spacecircle(float radius){ return (PI * radius * radius); }

// Длины окружности по известному радиусу
float circumference(float radius){ return (2 * PI * radius); }

// Площади прямоугольника по значениям длины и ширины
float spacerectangle(float width, float height){ return (width * height); }

// Объема цилиндра по значениям высоты цилиндра и радиуса основания
float volcylinder(float height, float radius){ return (spacecircle(radius) * height); }

#endif