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</p>
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Среднее арифметическое двухзначных чисел равно: ',s/k:0:3)
end.