Найти сумму всех чисел кратных 5 количество чисел неизвестно,0-окончание ввода(в паскале)

Program www;
var x,s:integer;
begin
read (x);
S:=0;
while x<>0 do
begin
If (x mod 5=0) then S:=S+x;
read (x);
end;
write (S);
End.