Паскаль: знайдіть всі числа з інтервалу 100-200 кратні 25. знайдіть їх суму та кількість. !

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