Help with getting 0 as average everytime

[aslevelpascalnoob]

I keep just getting 0 for my average everytime i run this with any numbers, pls help
program Project1;

{$mode objfpc}{$H+}

uses SysUtils;
type list_of_num=array[1..10] of integer;
var
x: list_of_num;
i: integer;
avg: integer;
dif: integer;
sum: integer;
begin
i:=1;
Sum:=0;
Repeat
begin
Writeln('Enter a number');
Readln(x);
i:=i+1;
end;
until i=10;
sum:=sum+x;
avg:=sum DIV 10;
Writeln(avg);
Readln;
end.

 

[kanewolf]

Your sum = sum + x statement is outside your do until loop ....

 

[Alabalcho]

1. There is no need for begin/end pair inside repeat/until loop.
2. That loop will be executed nine times, not ten.
3. You might want to use "for" loop - it is easier to comprehend.