Viết chương trình tính tổng các số chia hết cho 3 trong mảng
VAR x:LONGINT;
FUNCTION CHUSO(x:LONGINT):BYTE;
VAR i:BYTE;
BEGIN
WHILE x<>0 DO   
BEGIN
x:=x DIV 10;
inc(i);
END;
Chuso:=i;
END;
BEGIN
    Readln(x);
    Write(Chuso(x));
    readln;
END.