10 DEFINT I-K,S:FOR I=1 TO 4:FOR J=0 TO 4:FOR K=0 TO 4 
20 IF (I+J+K)MOD3=0 THEN S=S+I*100+J*10+K 
30 NEXT K,J,I:PRINT"ιΣΛΟΝΑΡ ΣΥΝΝΑ=";S