Я написал программу в Pascal ABS NET, суть которой такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа.
Формула: [tex]\frac{ sum_{1} }{sum_{2}} [/tex]
где sum1= сумму n чисел, которые ввёл человек
sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком.
Программа ниже!!

var
a,x,n,y,i,s,sum,b: integer;
begin
n := 7;
sum := 0;
for y := 1 to n do
begin
write(y, '-е число = ');readln(b);
sum := sum + b
end;
a:=sum;
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
case round(a/s) of
1,5,7,9,11,13,15: writeln('Выпадет: Красное');
2,4,6,8,10,12,14,16: writeln('Выпадет: Чёрное');
3: writeln('Выпадет: Зелёное');
else writeln('Выпадет: Неизвестный цвет');
end;
readln;
end.


Когда я её запускаю, мне сразу же выдаёт программа поля:
1-e число=
Потом 2-е число=
и так далее.
После того как я заполняю эти поля числами, ничего не происходит, хотя должна программа в итоге выдать результат последнего действия, где нужно разделить сумму чисел на сумму цифр суммированного числа. Помогите пожалуйста!!! ДАЮ 100 БАЛЛОВ!