помогите с программированием, устал уже. не пойму в чем ошибка, из-за чего ругаеться

Question

var 
a: array[1..30] of integer; 
n,i,s,k: integer; 
begin 
s:=0; k:=0; 
write('Сколько элементов в массиве? '); 
readln(n); 
for i:=1 to n do 
begin 
writeln('Введите ',i,' элемент'); 
readln(a); 
end; 
writeln('Массив: '); 
for i:=1 to n do 
begin 
write(a:0:3,' '); 
end; 
for i:=1 to n do 
begin 
if (a mod 2<>0) then 
begin 
s:=s+a; 
inc(k); 
end; 
end; 
writeln; 
if k=0 then writeln('В массиве нет элементов, удовлетворяющих условию. ') 
else writeln('Искомое среднее = ',s/k:0:2); 
readln; 
end.

Танюша Душечкина · Accepted Answer

Ругается на форматирование. 
Для целых не допускается знаков после запятой. 
Вместо: 
 
write(a[ i ]:0:3,' '); 
 
Нужно: 
 
write(a[ i ]:3,' ');

Александра Солдатова · Answer

скинь на почту мне файл с программой всей

!!! Handsome !!! · Answer

readln(a); - должно быть readln(a); 
write(a:0:3,' '); - должно быть write(a:0:3,' '); 
s:=s+a; - должно быть s:=s+a;

Светлана Комарова · Answer

Код на pastebin.com, а сюда - ссылку. Или попрбуй 
 
var a:array[1..30]of real; s:real; n,i,k: integer; 
begin 
s:=0; k:=0; 
write('Сколько элементов в массиве? '); readln(n); 
for i:=1 to n do begin write('Введите ',i:2,' элемент: '); readln(a[ i]); end; 
writeln('Массив: '); for i:=1 to n do write(a[ i]:8:3); 
for i:=1 to n do if odd(a[ i]) then begin s:=s+a[ i]; inc(k); end; writeln; 
if k=0 then writeln('В массиве нет элементов, удовлетворяющих условию. ') 
else writeln('Искомое среднее = ',s/k:0:3); 
readln; 
end. 
 
А в будущем приводи не только программу, но и условие.