используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

var i,s:integer;beginfor i:=10 to 50 doif (i mod 3 = 0) or (i mod 5 = 0) then s+=i;writeln(s);end.