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

Question

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

robot1212 · Answer

Program www;var x,s:integer;beginread (x);S:=0;while x 0 dobeginIf (x mod 5=0) then S:=S+x;read (x);end;write (S);End....