Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане число.

вот код почему не компилится
var i, n: integer;
var x: integer;
begin
i:= 100;
readln (n);
while i > 0 do
begin
x += i;
i -= n;
end;
writeln(x div (100 div n));
end.