Question

помогите Паскаль информатика ​

Answer 1

var a, sum: integer;

begin

   sum:= 0;

   readln(a);

   while a != 0 do begin

       if (a mod 10 = 3) and (a mod 7 = 0) then sum:= sum + a;

       readln(a);

   end;

   writeln(sum)

end.