Найти сумму чисел от 100 до 200, кратных 7. Подсчитать среднее арифметическое этих чисел — Pascal(Паскаль)

var
    i,n:integer;
    sum:real;
begin
    sum:=0;
    n:=0;
    for i:=100 to 200 do
    begin
         if ((i mod  7)=0) then 
          begin
            sum:=sum+i; n:=n+1;
           end;
    end;
   
    writeln('Summa ', sum:4:2);
    sum:=sum/n;
    writeln('Srednee ',sum:4:2);
end.