Написать программу которая определяет сумму чисел концом которых является 0(на языке паскаль )

-ClrScr;
-Repeat
-readln(i);
-If (i mod 3=0)or(i mod 100=0) then s:=s+i;
-until i=0;
-writeln('Сумма =',s);
-readln
-end.