Нужно СРОЧНО! ЗАДАЧА В ПАСКАЛЕ. Измените программу так чтобы она вычисляла…

program noname; uses crt; vara: array[1… 1000] of integer; i,k: integer; s: real; beginclrscr; i: =1; k: =0; write ('vvedi chislo '); readln (a[1]); while a[i]<>1000 do begink: =k+a[i]; i: =i+1; write ('vvedi chislo '); readln (a[i]); end; i: =i-1; s: =k/i; writeln (s); readkey; end.