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

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

begin

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

readln (n);

for i:=1 to n do

begin

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

readln (a);

if ((alt;100) and (agt;9)) or ((agt;-100) and (alt;-9)) then

begin

s:=s+a;

k:=k+1

end

end;

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

end.