Помогите решить задачу!)
Фото прикрепил

var i,a,k,n,s:integer;

begin

write ('Введите количество чисел: ');

readln (n);

for i:=1 to n do

begin

write ('Введите число: ');

readln (a);

if ((a<100) and (a>9)) or ((a>-100) and (a<-9)) then

begin

s:=s+a;

k:=k+1

end

end;

writeln ('Среднее арифметическое двухзначных чисел равно: ',s/k:0:3)

end.