Помогите пожалуйста) Программирование Паскаль

ПаскальАВС.НЕТ

const
  b=8;
var
  a:array of integer:=(23,30,35,12);
  c:array of integer:=(15,20,25,30);
  i:integer;
  y:real;  

function pr(c:array of integer):integer;
var
  i:integer;
begin 
result:=1; 
for i:=0 to 3 do
    result:=result*c[i];
end;  

begin
for i:=0 to 3 do
  y:=y+a[i]+c[i];
y:=y/pr(c);
writeln('Y=',y);    
end.