найти среднее арифметическое всех чисел от 100 до 900. в цикле с параметром

 Язык программирования - Python3

 ------------------------------------------------

d = 0
a = 0
for x in range(100,901):
     d += x
     a += 1
average = d // a
print(average)

на Pascal
program noname;

uses crt;
var
i,k,l:longint;
r:real;
begin
clrscr;
k:=0;
l:=0;
for i:=100 to 900 do begin
k:=k+i;
l:=l+1;
end;
r:=k/l;
writeln(r);
end.