ПАСКАЛЬ:
Знайдіть всі числа з інтервалу 100-200 кратні 25.
Знайдіть їх суму та кількість.
ЛЮДИИ... ПОМОГИТЕ!!!

Спасибочки!

 program 12332586; var i,s:integer; begin S:=0;for i:=100 to 200 doif (i mod 25=0) thenS:=S+i;        writeln(s);                end.