program nchsk;

uses

crt;

var

n, s, k, c, cn: integer;

var

sr: real;

begin

writeln('Сколько чисел будете вводить?');

readln(n);

c := 0;

s := 0;

writeln;

writeln('Вводите:');

while c <> n do

begin

readln(k);

if ((k div 10) > 0) and ((k div 10) < 10) and ((k mod 5) = 0) then

begin

s := s + k;

cn := cn + 1;

end ;

c := c + 1;

end;

writeln;

sr := s / cn;

writeln('Среднее арифметическое двухзначных чисел, кратных пяти: ', sr);

readln;

end.