Question

Помогите пожалуйста! Очень срочно надо!

Answer 1

Объяснение:

var

   a, x: integer;

begin  

   x:= 0;  

   readln(a);  

   while a<>0 do begin    

       if (a mod 7 = 0) then      

           x := x + a;    

       readln(a);

   end;  

   writeln(x)

end.