Перевод программы с pascal на qbasic решение: var a, s: integer; begin s: = 0; readln(a); while a< > 0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s : = s + a; readln(a); end; writeln(s) end.

DIM a AS INTEGER, s AS INTEGER
s = 0
INPUT a
DO WHILE a <> 0
   IF (a MOD 6 = 0) AND (a MOD 10 = 4) THEN
      s = s + a
   END IF
   INPUT a
LOOP
PRINT s