Процедуры и функции. паскаль даны 2 одномерных массива 10 целых чисел. найти сумму квадратов всех элементов массива для которых выполняется неравенство 0

program a;

var i,n :integer;

a,b,c :array [1..10] of integer;

begin

for i:=1 to n do begin

readln(a[i],b[i]);

end;

for i:=1 to 10 do begin

if (a[i]>0) and (a[i]<10) then

if (b[i]>0) and (b[i]<10) then

c[i]:=a[i]*a[i]+b[i]*[b];

endif;

endif;

end;

for i:=1 to n do begin

writeln('C[',i,']=',c[i]);

end;

end.