Перевод программы с 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.

Loop это

Что - это? Это в бейсике оператор завершения цикла DO

DIM a AS INTEGER, s AS INTEGERs = 0INPUT aDO WHILE a <> 0   IF (a MOD 6 = 0) AND (a MOD 10 = 4) THEN      s = s + a   END IF   INPUT aLOOPPRINT s