PROGRAM TONG_HOP;
USES CRT;
VAR N,K,A,TONG:INTEGER;
BEGIN
CLRSCR;
WRITELN('NHAP N:');READLN(N);
A:=0;
TONG:=0;
K:=N;
FOR I:=1 TO N DO
BEGIN
TONG:=TONG + N MOD 10;
N:=N DIV 10;
END;
For i:=1 to K do
If (i mod 3= 0) then inc(a);
FOR i:=1 TO H DO
BEGIN
DEM:=DEM+ A MOD 10;
A:=A MOD 10;
END;
WRITELN(TONG);
WRITELN(A);
WRITELN(DEM);
READLN
END.