Найти средне арифметическое чисел кратных 5 на промежутке от 50 до 100 и вывести их на экран по убыванию ( Паскаль)

vari,k,d:Integer;Begin for i:=100 downto 50 do  if (i mod 5=0) then   begin    Writeln(i);    Inc(k);    d:=d+i;   end;  Writeln('Среднее арифметическое : ',d div k);end.