Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program HelloWorld(output);
- var
- sum, a: integer;
- begin
- sum:=0;
- readln(a);
- while (a <> 0) do begin
- if ((a mod 4 = 0) and (a mod 10 = 3)) then begin
- sum:=sum+a;
- end;
- readln(a);
- end;
- writeln(sum);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement