program DemVaTinhTong;

var
  N, so, dem, tong: Integer;

procedure NhapSo(var so: Integer);
begin
  Write('Nhap so: ');
  Readln(so);
end;

procedure DemVaTinhTongSo(N: Integer; var dem, tong: Integer);
var
  i, number: Integer;
begin
  dem := 0;
  tong := 0;

  WriteLn('Nhap ', N, ' so: ');
  for i := 1 to N do
  begin
    NhapSo(number);

    if (number > 10) and (number < 20) then
    begin
      dem := dem + 1;
      tong := tong + number;
    end;
  end;
end;

procedure HienThiKetQua(dem, tong: Integer);
begin
  WriteLn('So cac so >10 va <20 la: ', dem);
  WriteLn('Tong la: ', tong);
end;

begin
  NhapSo(N);
  DemVaTinhTongSo(N, dem, tong);
  HienThiKetQua(dem, tong);

  Readln;
end.