program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils;

Var n, i: Longint;
        k: integer;
          A: array[0..10] of byte;

begin
    writeln('Введите число : ');
    readln(n);
    i:=n;
    k:=0;
    while i<>0 do
         begin
           k:=K+1;
           i:=i div 10;
         end;
         writeln('В числе ',n,' - ',k, 'цифр!');
          while n>0 do
            begin
              A [n mod 10]:=A[n mod 10]+1;
              n:=n div 10;
            End;
          for I := 0 to 9 do
           writeln('Цифра ',i,' встречается ',A[i],' раз(а)');
           readln;
end.

unit Unit1;
     
interface
     
uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
     
type
    TKursovaua = class(TForm)
      Edit: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      LabelVvod: TLabel;
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
     
var
    Kursovaua: TKursovaua;
     
implementation
     
{$R *.dfm}
     
procedure TKursovaua.Button1Click(Sender: TObject);
Var
i,sum,count : integer;
s: string;
R: longint;
begin
s:=Edit.text;
sum:=0;
count:=0;
for i:=1 to length(s) do
begin
count:=count+1;
sum:=sum+ StrToInt(s[i]);
end;
ShowMessage(' Число =' + IntToStr(sum) +#13+ 'Встречается раз =' + IntTostr(count ));
     
end;
     
end.

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

type
   TForm1 = class(TForm)
     Edit1: TEdit;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

function CntChRepet(InputStr: string; InputSubStr: char): integer;
var
   i: integer;
begin
   result := 0;
   for i := 1 to length(InputStr) do
     if InputStr[i] = InputSubStr then
       inc(result);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   str, res: string;
   substr: Char;
begin
   str := Edit1.Text;

   while(Length(str) > 0) do begin
     substr := str[1];
     res := res + 'Символ = ' + substr + ' повторяеться ' +
             IntToStr(CntChRepet(str, substr)) + ' раз' + #13#10;
     str := StringReplace(str, substr, '', [rfReplaceAll]);
   end;

   ShowMessage(res);
end;

end.